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3.3.7  ABSTRACT  MECHANISMS 
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3. 3. 7.1  ABSTRACT_DATA_STRUCTURES  TLCSC  P691  (CATALOG  #P330-0) 

This  package  contains  the  bodies  of  the  generic  packages  required  to  define  and 
manipulate  the  following  abstract  data  structures: 

o  bounded  FIFO  buffer  o  unbounded  FIFO  buffer  o  nonblocking  circular  buffer  o 
unbounded  priority  queue  o  bounded  stack  o  unbounded  stack 

It  also  contains  the  package  required  by  the  unbounded  parts  to  handle  the 
manipulation  of  their  available  space  lists. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requiremer ts  to  this 
part: 


|  Name 

Requirements  Allocation  | 

|  Bounded  FIFO  Buffer 

R125 

j  Unbounded  FlPo  Buffer 

R164 

j  Nonblocking  Circular  Buffer 

R126 

j  Unbounded  Priority  Queue 

R165 

j  Bounded  Stack 

R166 

j  UnboundedStack 

R167 

3. 3. 7. 1.2  LOCAL  ENTITIES  DESIGN 


Packages : 


The  following  table 

describes 

the  packages  maintained  local 

to  this  part: 

|  Name 

Type 

|  Description 

1 

I  Available  Space 

generic 

|  Contains  a  set  of  functions 

to  retrieve  a 

j  List  Operations 

1 

package 

j  node  from  and  add  a  node  to 
|  space  list 

an  available 

1 

3. 3. 7. 1.3  INPUT/OUTPUT 
None. 

3. 3. 7. 1.4  LOCAL  DATA 


None. 
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3. 3. 7. 1.5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 7. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
package  body  Abstract_Data_Structures  is 


—  — separate  package  bodies 


package  body  Bounded_FIFO_Buffer  is  separate; 
package  body  Unbounded_FIFO_Buffer  is  separate; 
package  body  Nonblocking_Circular_Buf fer  is  separate; 
package  body  Unbounded_Priority_Queue  is  separate; 
package  body  Bounded_Stack  is  separate; 
package  body  Unbounded_Stack  is  separate; 
package  body  Avai lable_Space_List_Operat ions  is  separate; 
end  Abstract_Data_Structures; 

3. 3. 7. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 7. 1.8  LIMITATIONS 
None. 

3. 3. 7. 1.9  LLCSC  DESIGN 

3. 3. 7. 1.9.1  AVAILABLE_SPACE_LIST_OPERATIONS  PACKAGE  DESIGN 

This  package  contains  a  set  of  routines  used  to  manipulate  an  available  space 
list  which  is  maintained  local  to  the  part  instantiating  this  package. 

The  first  routine,  New  Node,  will  return  a  node  to  the  calling  routine.  If  a 
node  is  available  in  tKe  available  space  list,  the  node  will  be  retrieved  from 
there.  If  not,  a  new  node  will  be  dynamically  allocated.  If  no  memory  is 
available  for  the  allocation,  a  ST0RAGE_ERR0R  exception  is  raised. 
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The  second  routine,  Save_Node,  places  a  node  in  the  available  space  list. 

The  third  routine,  Save_List,  places  a  list  of  nodes  in  the  available  space 
list . 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.9. 1.1  REQUIREMENTS  ALLOCATION 

This  part  helps  meet  CAMP  requirements  R164,  R165,  R167. 


3. 3. 7. 1.9. 1.2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 7. 1.9. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Nodes 

limited  private 

A  single  element  in  the  available  space  list 

j  Pointers 

access  Nodes 

A  pointer  to  an  element  in  the  available 

1 

space  list 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part.  All  of  these  objects  are  in/out  parameters  and  are  changed  by  calles  to 
the  enclosed  routines. 


|  Name 

1 

Type 

Value 

Description 

1 

Available 

1 

INTEGER 

N/A 

Length  of  the  available  space 

list 

Length 

1 

Available  Head 

1 

Pointers 

N/A 

Points  to  the  first  element  in 

the 

1 

available  space  list 

Available  Tail 

Pointers 

N/A 

Points  to  the  last  element  in 

the 

1 

available  space  list 

Subprograms: 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
part: 
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|  Name  | 

Type 

j  Description 

1 

|  Dot  Next  | 

function 

|  Given  a  pointer  to  a  node, 

this 

function  returns  a  1 

1  1 

J  pointer  to  the  next  node 

in  the  list  j 

|  Set  Next  | 

procedure 

j  Given  two  points,  A  and  B, 

sets 

A. Next  equal  to  B  j 

3. 3. 7. 1.9. 1.4 

LOCAL  DATA 

None. 

3. 3. 7. 1.9. 1.5 

PROCESS  CONTROL 

Not  applicable. 

3. 3. 7. 1.9. 1.6 

PROCESSING 

The  following  describes 

the  processing  performed  by 

this 

part: 

generic 

type  Nodes 

is  limited  private; 

type  Pointers 

is  access  Nodes; 

AvailableLength  :  in  out  INTEGER; 

Available_Head  :  in  out  Pointers; 

Aval lab leTail  :  in  out  Pointers; 

with  function  Dot_Next  (Ptr  s  in  Pointers)  return  Pointers  is  <>; 

with  procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr_dot  Next  s  in  Pointers)  is  <>; 
package  Available_Space_List_OperatIons  is 

function  New_Node  return  Pointers; 

procedure  Save_Node  (Saved_Node  :  in  Pointers); 

procedure  Save_List  (Saved_Head  :  in  Pointers; 

Saved_Tail  :  in  Pointers; 

Node_Count  :  in  POSITIVE); 

end  Available_Space_List_Operations; 


3. 3. 7. 1.9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 7. 1.9. 1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name  | 

|  When/Why  Raised  | 

|  STANDARD. STORAGE  ERROR  | 
1  1 
1  1 

|  Raised  during  elaboration  of  this  package  if  an  | 
attempt  is  made  to  allocate  memory  when  no  more 
is  available  j 

3. 3. 7. 1.9. 1.9  LLCSC  DESIGN 


None. 


3.3.7.1.9.1.10  UNIT  DESIGN 


None. 


3. 3. 7. 1.9. 2  AVAI LABLE_SPACE_LI ST_0PER ATI ONS  PACKAGE  DESIGN 

This  package  contains  a  set  of  routines  used  to  manipulate  an  available  space 
list  which  is  maintained  local  to  the  part  instantiating  this  package. 

The  first  routine,  New  Node,  will  return  a  node  to  the  calling  routine.  If  a 
node  is  available  in  tKe  available  space  list,  the  node  will  be  retrieved  from 
there.  If  not,  a  new  node  will  be  dynamically  allocated.  If  no  memory  is 
available  for  the  allocation,  a  ST0RAGE_ERR0R  exception  is  raised. 

The  second  routine,  Save  Node,  places  a  node  in  the  available  space  list. 

The  third  routine,  C  ive  List,  places  a  list  of  nodes  in  the  available  space 
list. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.9. 2.1  REQUIREMENTS  ALLOCATION 

This  part  helps  meet  CAMP  requirements  R164,  R165,  R167. 


3. 3. 7. 1.9. 2. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 7. 1.9. 2. 3  INPUT/OUTPUT 
GENERIC  PARAMETER? : 

The  following  generic  parameters  were  previously  defined  when  this  was 
specified  in  the  package  body  of  Abstract_Data_Structures. 
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Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Nodes 
j  Pointers 

1 

|  limited  private 
|  access  Nodes 

1  1 

|  A  single  element  in  the  available  space  list  | 
A  pointer  to  an  element  in  the  available  j 

I  space  list  i 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part.  All  of  these  objects  are  in/out  parameters  and  are  changed  by  calls  to 
the  enclosed  routines. 


|  Name  |  Type  |  Value  |  Description 


Available_ 

Length 

Available  Head 


INTEGER  |  N/A 
Pointers  I  N/A 


Available_Tail 


Pointers 


N/A 


Length  of  the  available  space  list 

Points  to  the  first  element  in  the 
available  space  list 
Points  to  the  last  element  in  the 
available  space  list 


Subprograms: 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
part : 


|  Name  |  Type  |  Description 


|  Dct_Next  |  function  |  Given  a  pointer  to  a  node,  this  function  returns  a  i 

j  j  pointer  to  the  next  node  in  the  list  j 

j  Set_Next  j  procedure  |  Given  two  points,  A  and  B,  sets  A. Next  equal  to  B  j 


3. 3. 7. 1.9. 2. 4  LOCAL  DATA 


None. 


3. 3. 7. 1.9. 2. 5  PROCESS  CONTROL 
Not  applicable. 
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3.3.7. 1.9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Abstract_Data_Structures) 

package  body  Available_Space_List_Operations  is 

end  Available_Space_List_Operations ; 


3. 3. 7. 1.9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.7. 1.9. 2. 8  LIMITATIONS 


None. 


3. 3. 7. 1.9. 2. 9  LLCSC  DESIGN 
None. 


3.3.7.1.9.2.10  UNIT  DESIGN 

3.3.7.1.9.2.10.1  NEVNODE  UNIT  DESIGN 

This  function  returns  a  node  to  the  calling  routine.  If  nodes  are  available  in 
the  space  list,  the  node  returned  will  be  from  there.  If  the  available  space 
list  is  empty,  this  routine  will  attempt  to  dynamically  allocate  memory.  If  no 
more  memory  is  available  on  the  system,  a  STORAGEERROR  exception  vill  be 
raised. 


3.3.7.1.9.2.10.1.1  REQUIREMENTS  ALLOCATION 

This  part  helps  meets  CAMP  requirements  R164,  R164,  R176. 


3.3.7.1.9.2.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.7.1.9.2.10.1.3  INPUT/OUTPUT 
None. 


3.3.7.1.9.2.10.1.4  LOCAL  DATA 
Data  objects: 
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The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Value 

|  Description  | 

|  Ptr 

Pointers 

N/A 

|  Points  to  the  node  being  returned  | 

j  New  Available 

Pointers 

N/A 

j  Temporary  variable  used  to  mark  | 

1  Head 

1 

j  where  Available_Head  will  point  j 

j  when  this  routine  is  exited  j 

3.3.7.1.9.2.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.2.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  New  Node  return  Pointers  is 


— declaration  section 


Ptr  :  Pointers; 

New  Available  Head  :  Pointers; 


—  — begin  function  New_Node 


begin 

if  AvailableJLength  >  0  then 

— get  the  node  from  the  available  space  list  and  mark  the  node 
— that  will  now  be  the  head  of  the  available  space  list 
Ptr  :=  Available_Head; 

Nev_Available_Head  Dot_Next(Available_Head) ; 

— initialize  node  being  returned 
Set_Next  (Ptr  ->  Ptr, 

Ptr_dot_Next  =>  NULL); 

— adjust  the  available  space  list 
Available_Head  :=  New  Available_Head; 

Available_Length  :=  AvaIlable_Length  -  1; 

else 

— allocate  space  to  get  the  node 
Ptr  :■  NEW  Nodes; 


end  if; 
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return  Ptr; 
end  New  Node; 


3.3.7.1.9.2.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  describes  the  subroutines  required  by  this  part  and  defined 
as  generic  formal  subprograms  to  the  Available_Space_List_Operations  package: 


|  Name  |  Type  |  Description 


|  Dot_Next  |  function  |  Given  a  pointer  to  a  node,  this  function  returns  a 
j  |  pointer  to  the  next  node  in  the  list 

j  Set_Next  j  procedure  |  Given  two  points,  A  and  B,  sets  A. Next  equal  to  B 


Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  AbstractJDataStructures.  Available_Space_- 
List_Operations  package. 


|  Name  |  Type  |  Description  i 


|  Nodes  |  limited  private  |  A  single  element  in  the  available  space  list 

j  Pointers  j  access  Nodes  |  A  pointer  to  an  element  in  the  available 

j  j  j  space  list 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract_Data_Structures.  Available_Space_- 
List_Operations  package. 


|  Name 

1  Type 

Value 

|  Description 

1 

|  Available 

|  INTEGER 

N/A 

|  Length  of  the 

available  space  list  | 

1  Length 

1 

|  Available  Head 

|  Pointers 

N/A 

|  Points  to  the 

first  element  in  the  1 

1 

1 

j  available  space  list  | 
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3.3.7.1.9.2.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  STANDARD. STORAGE  ERROR 

1  1 

|  Raised  if  an  attempt  is  made  to  allocate  memory  | 

1  when  no  more  is  available  j 

3.3.7.1.9.2.10.2  SAVE_NODE  UNIT  DESIGN 

This  procedure  returns  a  node  to  the  available  space  list.  The  node  returned 
to  the  list  is  the  one  pointed  to  by  Saved_Node. 

3.3.7.1.9.2.10.2.1  REQUIREMENTS  ALLOCATION 

This  part  helps  meets  CAMP  requirements  R164,  R164,  R176. 

3.3.7.1.9.2.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.2.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Saved  Node 

1  "  1 

|  Pointers 

in 

|  Pointer  to  the  node  which  is  to  be  placed  | 
j  in  the  available  space  list  j 

3.3.7.1.9.2.10.2.4  LOCAL  DATA 
None. 

3.3.7.1.9.2.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.2.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Save_Node(Saved_Node  :  in  Pointers)  is 
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begin 

Set_Next  (Ptr  =>  Available_Tail, 

Ptr  dot_Next  =>  Saved_Node); 

Available_Tail  :=  Saved_Node; 

Set_Next  (Ptr  =>  Available_Tail, 

PtrdotJSext  ->  NULL); 

Available_Length  :=»  Available_Length  +  1; 

end  Save  Node; 


3.3.7.1.9.2.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  describes  the  subroutines  required  by  this  part  and  defined 
as  generic  formal  subprograms  to  the  AvailableSpaceListOperations  package: 


|  Name 

1  Type 

|  Description  | 

|  Set_Next 

|  procedure 

|  Given  two  points,  A  and  B,  sets  A. Next  equal  to  B  | 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract_Data_Structures.  Available_Space_- 
List_Operations  package. 


|  Name 

1  Type 

|  Description  | 

|  Nodes 
|  Pointers 

1 

|  limited  private 
|  access  Nodes 

1 

|  A  single  element  in  the  available  space  list 
|  A  pointer  to  an  element  in  the  available 
space  list 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract_Data_Structures.  Available_Space_- 
List_Operations  package. 
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|  Name 

1  Type 

|  Value 

|  Description 

1 

|  Available 

|  INTEGER 

|  N/A 

|  Length  of  the  available  space 

list  | 

j  Length 

1 

j 

1 

|  Available  Tail 

|  Pointers 

j  N/A 

j  Points  to  the  last  element  in 

the  | 

1 

1 

1 

j  available  space  list 

1 

3.3.7.1.9.2.10.2.8  LIMITATIONS 


None. 


3.3.7.1.9.2.10.3  SAVE_LIST  UNIT  DESIGN 

This  procedures  places  a  linked  list  of  nodes  in  the  available  space  list. 


3.3.7.1.9.2.10.3.1  REQUIREMENTS  ALLOCATION 
None. 


3.3.7.1.9.2.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


< 


3.3.7.1.9.2.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

|  Description  | 

Saved_Head 

Pointers 

in 

|  Pointer  to  the  first  node  to  be  placed  in 
j  the  available  space  list 

Saved_Tail 

Pointers 

in 

j  Pointer  to  the  last  node  to  be  placed  in 
j  the  available  space  list 

Node_Count 

POSITIVE 

in 

j  Number  of  nodes  to  be  placed  in  the 
j  available  space  list 

3.3.7.1.9.2.10.3.4  LOCAL  DATA 


None. 
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3.3.7.1.9.2.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.2.10.3.6  PROCESSING 

The  following  describe^  the  processing  performed  by  this  part: 

procedure  Save_List  (Saved_Head  :  in  Pointers; 

Saved  Tail  :  in  Pointers; 

Node  Count  :  in  POSITIVE)  is 


begin 

Set_Next  (Ptr  ■>  Available  Tail, 

Ptr_dot_Next  »>  Saved_Hea3) ; 

Available_Tail  :«  Saved_Tail; 

Set_Next  (Ptr  =>  Available  Tail, 

Ptr_dot_Next  ->  Saved_Hea3); 

Available_Length  :■  Available_Length  +  Node_Count; 

end  Save  List; 


3.3.7.1.9.2.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  describes  the  subroutines  required  by  this  part  and  defined 
as  generic  formal  subprograms  to  the  Available_Space_List_Operations  package: 


|  Name  | 

1  Type 

|  Description  | 

|  Set_Next  | 

procedure 

|  Given  two  points,  A  and  B,  sets  A. Next  equal  to  B  | 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Available_Space_List_Operations  LLCSC: 


|  Name 

Type 

|  Description  | 

Pointers 

access  Nodes 

|  A  pointer  to  an  element  in  the  available  | 

j  space  list  j 
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Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Available_Space_List_Operations  LLCSC: 


|  Name 

1  Type 

|  Value 

|  Description 

1 

|  Available 

1  INTEGER 

|  N/A 

|  Length  of  the  available  space 

list  | 

|  Length 

1 

1 

1 

j  Available  Tail 

|  Pointers 

j  N/A 

|  Points  to  the  last  element  in 

the  | 

1 

1 

1 

>  available  space  list 

1 

3.3.7.1.9.2.10.3.8  LIMITATIONS 


None. 


3. 3. 7. 1.9. 3  BOUNDED_FI F0_BUFFER  PACKAGE  DESIGN  (CATALOG  #P331-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  first-in-first-out  buffering  operations  on  incoming  data.  The  head 
always  points  to  a  dummy  node.  The  first  node  following  the  dummy  node 
contains  the  next  piece  of  data  to  be  retrieved.  The  tail  always  points  to 
where  the  next  element  should  be  added.  If  the  tail  points  to  the  element 
immediately  in  front  of  the  head,  the  buffer  is  empty.  If  the  tail  points  to 
the  same  element  as  the  head,  the  buffer  is  full.  Since  the  buffer  is 
implemented  as  an  array,  the  head  and  tail  will  advance  through  the  array  in  a 
circular  fashion,  but  no  overwriting  of  data  currently  in  the  buffer  will  be 
permitted. 

Empty  FIFO  buffer:  +-+  < - Head  +-+  +-+  +-+  < - Tail  +-+  +-+  +-+  +-+ 

Full  FIFO  buffer:  Tail - >+-+  < - Head  +-+  +-+  +-+  +-+  +-+  +-+  +-+ 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  required  R125. 


3. 3. 7. 1.9. 3. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 7. 1.9. 3. 3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified  in  the  package  specification  of  the  Abstract_Data_Structures  package: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

Description  | 

|  Elements  | 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

1  Type 

Value 

|  Description 

1 

|  Initial 
|  BufferSize 

|  POSITIVE 

1 

N/A 

|  Maximum  number  of 
j  be  in  the  buffer 

elements  which  can  | 

at  any  given  time  j 

3. 3. 7. 1.9. 3. 4 

LOCAL  DATA 

None. 


3. 3. 7. 1.9. 3. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 7. 1.9. 3. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Abstract_Data_Structures) 
package  body  Bounded_FIFO_Bu£fer  is 

end  Bounded  FIFO  Buffer; 


3. 3. 7. 1.9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 


Data  types: 
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The  following  table  describes  the  data  types  which  were  previously  defined  in 
this  part's  specification: 


I 

Name 

1 

Type 

1 

Range 

|  Description 

1 

1 

Buffer  Range 

1 

NATURAL 

1 

0  .. 

|  Used  to  dimension  the  list  of 

1 

subtype 

1 

Buffer  Size 

j  elements 

1 

1 

Buffer 

1 

discrete 

Empty, 

|  Used  to  indicate  the  status  of 

1 

Statuses 

1 

type 

Available, 

the  buffer 

1 

1 

1 

1 

Full 

1 

1 

The  following  table 

describes 

the  data  types  defined  in 

the  private  part  of 

this  part's  specification: 

|  Name  |  Type 

|  Range 

|  Description 

1 

|  Buffers  |  record 

|  N/A 

|  List  of  data  along  with 

relevant  | 

1  1 

1  information 

1 

|  Lists  j  array 

j  N/A 

j  Array  of  elements 

1 

Data  objects: 

The  following  table  describes  the  data  objects  which  were  previously  defined  in 
this  part's  specification: 


|  Name 

1  Type  | 

|  Value 

|  Description  | 

|  Buffer  Size  | 

|  POSITIVE  | 

Initial 

|  Number  of  usable  elements  in  a 

1  1 

|  BufferSize  j 

j  buffer 

Exceptions: 

The  following  table  describes  the  exceptions  which  were  previously  defined  in 
this  part's  specification: 


|  Name  |  Description  | 


|  Buffer_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
I  j  retrieve  elements  from  an  empty  buffer  j 

j  Buffer_Full  j  Error  condition  raised  if  an  attempt  is  made  to  add  j 

I  elements  to  a  full  buffer 


3. 3. 7. 1.9. 3. 8  LIMITATIONS 


None. 
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3.3. 7. 1.9. 3. 9  LLCSC  DESIGN 
None. 

3.3.7.1.9.3.10  UNIT  DESIGN 

3.3.7.1.9.3.10.1  CLEAR_BUFFER  UNIT  DESIGN 

This  procedure  clears  an  input  buffer  by  setting  its  length  to  0  and  resetting 
its  head  and  tail  to  0  and  1,  respectively. 

3.3.7.1.9.3.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R125. 

3.3.7.1.9.3.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.3.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Buffer 

|  Buffers 

|  out 

|  FIFO  buffer  being  accessed  | 

3.3.7.1.9.3.10.1.4  LOCAL'DATA 
None. 

3.3.7.1.9.3.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.3.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Clear_Buffer  (Buffer  :  out  Buffers)  is 

— declaration  section 

Buffer_Length  :  Buffer  Range  renames  Buffer. Buf fer_Length; 
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Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 


—  — begin  procedure  Clear_Buffer 


begin 

Buffer_Length  :  =  0 
Head  : =  0 

Tail  1 

end  Clear  Buffer  ; 


3.3.7.1.9.3.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.7.1.9.3.10.1.8  LIMITATIONS 


None. 


3.3.7.1.9.3.10.2  ADDELEMENT  UNIT  DESIGN 

This  procedure  adds  an  element  to  an  input  buffer  if  the  buffer  is  not  already 
full.  After  the  element  is  added,  the  tail  is  advanced  one  place  in  the  buffer 
and  the  length  counter  is  incremented  by  1. 

The  exception  Buffer_Full  is  raised  if  an  attempt  is  made  to  add  an  element  to 
an  already  full  buffer. 


3.3.7.1.9.3.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R12S. 


3.3.7.1.9.3.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.3.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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J  Name 

Type 

Mode 

|  Description  | 

|  Buffer 
j  New  Element 

Buffers 

Elements 

in  out 
in 

FIFO  buffer  being  accessed 

Element  to  be  added  to  the  buffer  I 

3.3.7.1.9.3.10.2.4  LOCAL  DATA 
None. 

3.3.7.1.9.3.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.3.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Add_Element  (Nev  Element  :  in  Elements; 

Buffer  :  in  out  Buffers)  is 

--‘declaration  section 

List  :  Lists  renames  Buffer. List; 

Buffer_Length  :  Buffer_Range  renames  Buffer.Buffer_Length; 

Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 

—  — begin  procedure  Add_Element 


begin 

— make  sure  buffer  isn't  full 
if  Head  -  Tail  then 
raise  Buffer_Full; 
end  if; 

List(Tail)  New_Element; 

Buffer  Length  :«  Buffer  Length  +  1; 
if  Tail  =  Buffer_Size  tKen 
Tail  :«  0; 
else 

Tail  :=  Tail  +  .1; 
end  if; 


end  Add  Element  ; 
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3.3.7.1.9.3.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  types  to  the  Abstract_Data_Structures.  Bounded_FIFO_Buffer 
package: 


|  Name  |  Type  |  Description 

|  Elements  |  private  |  User  defined  type  of  data  contained  in  the  buffer 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Bounded  FIF0_Buffer. 


|  Name  |  Type  |  Range  |  Description 


|  BufferRange 


NATURAL  0  . .  Used  to  dimension  the  list  of 

subtype  BufferSize  elements 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Bounded_FIFO  Buffer  package: 


|  Name  |  Type  |  Range  |  Description  | 


|  Buffers  |  record  |  N/A  List  of  data  along  with  relevant  | 

|  j  j  information 

|  Lists  j  array  j  N/A  Array  of  elements  j 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Bounded_FIFO_Buffer: 


|  Name 

Type 

Value 

Description  | 

|  Buffer  Size 

1 

POSITIVE 

Initial_ 

Buf fer_Size 

Number  of  usable  elements  in  a  | 

buffer  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract  Data  Structures.  Bounded  FIFO  Buffer: 
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|  Name  |  Description 


|  Buffer_Full  |  Error  condition  raised  if  an  attempt  is  made  to  add 
I  elements  to  a  full  buffer 


3.3.7.1.9.3.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Description  | 

|  Buffer  Full 

1 

|  Error  condition  raised  if  an  attempt  is  made  to  add  | 

j  elements  to  a  full  buffer  j 

3.3.7.1.9.3.10.3  RETRIEVE_ELEMENT  UNIT  DESIGN 

This  procedure  retrieves  the  top  element  in  the  buffer  if  the  buffer  is  not 
empty.  The  head  is  advanced  through  the  buffer  by  1  before  the  element  is 
retrieved  and  the  size  of  the  buffer  is  decremented  by  1  after  the  element  is 
retrieved. 

If  the  buffer  is  empty  before  calling  this  routine,  the  exception  BufferEmpty 
is  raised. 


3.3.7.1.9.3.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R125. 


3.3.7.1.9.3.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.3.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

Description  | 

|  Buffer 
j  01d_Element 

Buffers 

Elements 

in  out 
out 

FIFO  buffer  being  accessed  •  | 

Element  retrieved  from  the  buffer  j 

CAMP  Software  Detailed  Design  Document 


Page  1752 


3.3.7.1.9.3.10.3.4  LOCAL  DATA 


None. 


3.3.7.1.9.3.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.3.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Retrieve_Element  (Buffer  :  in  out  Buffers; 

Old  Element  :  out  Elements)  is 


— declaration  section 


Buf fer_Length  :  Buffer_Range  renames  Buffer. Buffer_Length; 

Head  :  Buffer_Range  renames  Buffer. Head; 

List  :  Lists  renames  Buffer. List; 

Tail  :  Buffer_Range  .renames  Buffer. Tail; 


—  — begin  procedure  Retrieve_Element 


begin 

— make  sure  don't  have  an  empty  buffer 

if  Head  »  (Tail-1)  or  else  (Tail  -  0  and  Head  -  Buffer_Size)  then 
raise  Buffer_Empty; 
end  if; 

if  Head  =  Buffer_Size  then 
Head  :-  0; 
else 

Head  :■  Head  +  1; 
end  if; 

Old  Element  :  =  List(Head); 

Bufler_Length  :«  Buffer_Length  -  1; 

end  Retrieve  Element  ; 


3.3.7.1.9.3.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 
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Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  types  to  the  Abstract_Data_Structures.  Bounded_FIFO_Buf fer 
package : 


|  Name  |  Type  |  Description  | 

|  Elements  |  private  |  User  defined  type  of  data  contained  in  the  buffer  | 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Bounded  FIFO  Buffer. 


|  Name  |  Type  |  Range  |  Description 


Buffer_Range  |  NATURAL  |  0  ..  |  Used  to  dimension  the  list  of 

|  subtype  j  Buffer_Size  j  elements 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs t r ac t _Da ta_Structures. Bounded_FI FO_Bu f f e r  package : 


|  Name 

Type 

j  Range 

|  Description  | 

|  Buffers 

record 

|  N/A 

|  List  of  data  along  vith  relevant 

1 

1 

information 

|  Lists 

array 

j  N/A 

j  Array  of  elements 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract  Data  Structures.  Bounded  FIFO_Buffer: 


|  Name 

|  Description  | 

Buffer_Empty 

|  Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
|  retrieve  elements  from  an  empty  buffer 

3.3.7.1.9.3.10.3.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  | 

|  Description  | 

Buffer  Empty  | 

1 

|  Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
retrieve  elements  from  an  empty  buffer 
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3.3.7.1.9.3.10.4  PEEK  UNIT  DESIGN 

This  function  returns  the  first  element  of  the  buffer  if  the  buffer  is  not 
empty.  The  status  of  the  buffer  is  not  changed,  however,  and  the  element 
itself  remains  in  the  buffer. 

The  Buf fer_Empty  exception  is  raised  if  an  attempt  is  made  to  look  at  an  empty 
buffer. 


3.3.7.1.9.3.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R125. 


3.3.7.1.9.3.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.3.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

|  Buffers 

|  in  out 

FIFO  buffer  being  accessed  | 

3.3.7.1.9.3.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  local  to  this  part: 


|  Name 

1  Type  | 

Description  | 

|  Spot 

|  Buffer_Range  | 

Marks  location  of  element  to  be  looked  at  | 

3.3.7.1.9.3.10.4.5  PROCESS  CONTROL 

i 

Not  applicable. 

3.3.7.1.9.3.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Peek  (Buffer  :  in  Buffers)  return  Elements  is 
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— declaration  section 


Buf fer_Length 

Head 

Tail 

List 

Spot 


Buffer  Range  renames 
Buffer_Range  renames 
Buffer~Range  renames 
Lists  renames 
Buf fer_Range; 


Buf fer .Buf fer_Length; 
Buffer. Head; 

Buffer. Tail; 

Buffer. List; 


—  — begin  function  Peek 


begin 

— make  sure  don't  have  an  empty  buffer 

if  Head  =  (Tail-1)  or  else  (Tail  -  0  and  Head  ■  Buffer_Size)  then 
raise  Buf fer_Empty; 
end  if; 

if  Head  =  Buffer_Size  then 
Spot  : =  0; 
else 

Spot  :-  Head  +  1; 
end  if; 

return  List(Spot); 
end  Peek  ; 


3.3.7.1.9.3.10.4.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  types  to  the  Abstract_Data_Structures.  Bounded_FIFO_Buffer 
package: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract  Data_Structures.  Bounded  FIFO  Buffer. 
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|  Name  |  Type  |  Range  |  Description  | 


|  Buffer_Range  |  NATURAL  |  0  ..  |  Used  to  dimension  the  list  of 

j  j  subtype  j  Buffer_Size  |  elements  j 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Bounded_FIFO_Buf fer  package: 


|  Name  |  Type  |  Range  |  Description 


|  Buffers  |  record  |  N/A  |  List  of  data  along  with  relevant 

jj  j|  information 

j  Lists  j  array  j  N/A  j  Array  of  elements 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract  Data  Structures.  Bounded  FIFO  Buffer: 


|  Name  |  Description  | 


|  BufferEmpty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  j 
j  j  retrieve  elements  from  an  empty  buffer  j 


3.3.7.1.9.3.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  |  Description  | 

|  Buffer_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
|  j  retrieve  elements  from  an  empty  buffer  j 


3.3.7.1.9.3.10.5  BUFFER_STATUS  UNIT  DESIGN 

This  function  returns  the  status  of  the  buffer.  If  there  are  no  elements  in 
the  buffer,  the  status  is  empty;  if  there  is  no  room  for  additional  elements, 
the  status  is  full;  otherwise,  the  status  is  available. 


i 


3.3.7.1.9.3.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R125. 
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3.3.7.1.9.3.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.3.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

j  Buffers 

|  in  out 

FIFO  buffer  being  accessed  | 

3.3.7.1.9.3.10.5.4  LOCAL  DATA 
Data  objects: 

The  following  objects  are  maintained  local  to  this  part: 


|  Name 

Type 

Description  | 

|  Status 

Buffer_Statuses 

Status  of  the  buffer  | 

3.3.7.1.9.3.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.3.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Buf fer_Status  (Buffer  :  in  Buffers)  return  Buffer_Statuses  is 

— declaration  section 

Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 

Status  :  Buffer_Statuses; 

—  —begin  function  Buf fer_Status 


begin 
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if  Head  =  (Tail-1)  or  else  (Tail  =  0  and  Head  =  Buffer_Size)  then 
Status  :=  Empty; 
elsif  Head  =  Tail  then 
Status  :=  Full; 
else 

Status  :=  Available; 
end  if; 

return  Status; 
end  Buffer  Status  ; 


3.3.7.1.9.3.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract  Data  Structures.  Bounded  FIFO  Buffer. 


|  Name 

Type 

Range 

Description  | 

|  Buffer  Range 

NATURAL 

0  .. 

Used  to  dimension  the  list  of 

subtype 

Buffer  Size 

elements 

|  Buffer 

discrete 

Empty, 

Used  to  indicate  the  status  of 

j  Statuses 

1 

type 

Available, 

Full 

the  buffer 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Bounded_FIF(7  Buffer  package: 


|  Name 

1  Type 

|  Range 

Description 

1 

|  Buffers 

1 

|  record 

1 

|  N/A 

1 

List  of  data  along  vith  relevant  | 

information  1 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Bounded_FIFO_Buf fer: 


|  Name 

Type 

Value 

Description  | 

|  Buffer  Size 

1 

POSITIVE 

Initial_ 

Buffer_Size 

Number  of  usable  elements  in  a  | 

buffer  | 
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3.3.7.1.9.3.10.5.8  LIMITATIONS 
None. 

3.3.7.1.9.3.10.6  BUFFER_LENGTH  UNIT  DESIGN 

This  function  returns  the  length  of  the  current  buffer. 

3.3.7.1.9.3.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R125. 

3.3.7.1.9.3.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 7.1  "  1.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

|  Buffers 

|  in  out 

FIFO  buffer  being  accessed  | 

3.3.7.1.9.3.10.6.4  LOCAL  DATA 
None. 

3.3.7.1.9.3.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.3.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Buf fer_Length  (Buffer  :  in  Buffers)  return  Buffer_Range  is 
begin 

return  Buf fer.Buf fer_Length; 


end  Buf ferJLength  ; 
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3.3.7.1.9.3.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract  Data_Structures.  Bounded  FIFO  Buffer. 


|  Name 

Type 

Range 

|  Description  | 

|  Buffer  Range 

1 

NATURAL 

subtype 

0  .. 

BufferSize 

|  Used  to  dimension  the  list  of  | 

j  elements  j 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Bounded_FIFO_Buffer  package: 


|  Name  | 

Type 

|  Range 

|  Description  | 

|  Buffers  | 

1  1 

record 

|  N/A  | 

List  of  data  along  with  relevant 

1  1 

information 

3. 3. 7. 1.9. 3. 

10.6.8 

LIMITATIONS 

None. 


3. 3. 7. 1.9. 4  UNBOUNDEDFIFOBUFFER  PACKAGE  DESIGN  (CATALOG  #P332-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  first-in-first-out  buffering  operations  on  incoming  data.  The  head 
of  the  buffer  always  points  to  a  dummy  node.  The  first  node  following  the 
dummy  node  contains  the  next  piece  of  data  to  be  retrieved.  The  tail  always 
points  to  the  node  containing  the  last  element  added  to  the  buffer.  If  the 
tail  points  to  the  same  node  as  the  head,  the  buffer  is  empty. 

A  buffer  must  be  initialized  before  it  is  used.  If  an  attempt  is  made  to  use 
an  uninitialized  buffer,  the  exception  Buffer_Not_Initialized  will  be  raised. 
The  Initialized_Buffer  procedure  returns  an  initialized  buffer.  The  Clear_- 
Buffer  procedure  returns  the  nodes  of  a  buffer  to  the  available  space  list~and 
then  returns  an  initialized  buffer. 

An  available  space  list  is  maintained  local  to  this  part.  When  this  part  is 
elaborated  the  available  sp.'.ce  list  will  have  a  dummy  node  plus  Initial  - 
Available_Space_Size  nodes.  When  nodes  are  added  to  the  buffer,  the  Ad<I_- 
Element  routine  will  try  to  get  a  node  from  the  available  space  list  before 
attempting  to  allocate  more  memory.  When  the  Retrieve  Element  routine  is 
called,  the  unused  node  will  be  returned  to  the  availaEle  space  list  for  later 
use.  The  memory  committed  to  the  available  space  may  be  deallocated  by  calling 
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the  FreeMemory  procedure. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 


3. 3. 7. 1.9. 4. 2  LOCAL  ENTITIES  DESIGN 
Data  structures: 

An  available  space  list  is  maintained  local  to  this  part's  package  body. 
Subprograms: 

The  following  subprograms  are  contained  local  to  this  body: 


|  Name 

Type  |  Description  | 

|  Free  Node 

procedure  |  Instantiation  of  UNCHECKED  DEALLOCATION 

j  Dot  Rext 

function  j  Given  a  pointer  P,  this  function  returns 

1 

j  the  value  of  P.Next 

)  Set  Next 

procedure  j  Given  tvo  points  P  &  Q,  this  procedure 

j  sets  P.Next  -  Q 

The  following  subprograms  are  contained  in  this  part  as  a  result  of  renaming 
operations  on  identically  named  routines  contained  in  the  locally  instantiated 
Aval lable_Space_Opera t i ons  package . 


|  Name 

Type  |  Description  | 

|  New  Node 

function  |  Returns  a  node  to  the  calling  routine;  will  get  a 

node  from  the  available  space  list  if  possible, 

otherwise  will  allocate  a  new  node 

j  Save  Node 

procedure  j  Handles  placing  a  node  in  the  available  space  list 

j  Save  List 

procedure  j  Handles  placing  a  list  of  nodes  in  the  available 

j  space  list 

This  package  body  contains  code  to  initialize  the  AvailableJSpace  List.  This 
code  is  executed  when  the  package  is  elaborated.  At  a  minimum,  tKis  code  calls 
the  Initialize_Buffer  procedure  to  initialize  the  Available  Space  List  so  it 
contains  a  dummy  node.  If  the  generic  formal  object  InitiaT_AvaiTable_Space_- 
Size  is  greater  than  or  equal  to  1,  this  routine  then  places  the  requested 
number  of  nodes  (in  addition  to  the  dummy  node)  in  the  available  space  list. 
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3. 3. 7. 1.9. 4. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified  in  the  package  specification  of  the  Abstract_Data_Structures  package: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


l  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part : 


|  Name 

1  Type 

|  Description  | 

|  Initial_Available_ 

|  SpaceSize 

|  NATURAL 

1 

|  Number  of  nodes  to  be  initially  placed  in  | 
j  the  available  space  list  | 

3. 3. 7. 1.9. 4. 4  LOCAL  DATA 
None. 

3. 3. 7. 1.9. 4. 5  PROCESS  CONTROL 
Not  applicable. 


3.3.7. 1.9. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

with  UNCHECKEDDEALLOCATION ; 
separate  (Abstract_Data_Structures) 
package  body  Unbounded_FIFO_Buffer  is 

—  — declaration  section 


—  — this  variable  is  accessed  ONLY  when  setting  up  the  available  space  list 
Initial_Head  :  Pointers  :*  new  Nodes; 

Available_Space  :  Buffers  :■  (Current_Length  «>  0, 

Head  ~  »>  Initial  Head, 
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Tail  =>  Initial_Head) ; 

Available_Length  :  INTEGER  renames  Available_Space.Current_Length; 
Available_Head  :  Pointers  renames  Available~Space.Head; 
AvailableTail  :  Pointers  renames  Available_Space.Tail; 

procedure  Free  is  new  UNCHECKED_DEALLOCATION 

(Object  =>  Nodes, 

Name  =>  Pointers); 

procedure  Free_Node  (Vhich_Node  :  in  out  Pointers) 
renames  Free; 


function  Dot_Next  (Ptr  :  in  Pointers)  return  Pointers; 

procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr  dot  Next  :  in  Pointers); 


package  Available_Space_Operations  is  new 
Available_Space_List_Operations 

(Nodes  ->  Nodes, 

Pointers  «> 

Available_Ler»gth 
Available  Read 


Available  Tail 


Pointers, 

«>  Available_Length, 
->  Available  Head, 


->  Aval lab le_Tail) ; 


function  NevNode  return  Pointers 

rename  3  Aval lable  Space  Opera t  ions . Nev_Node  5 


procedure  Save_Node  (Saved_Node  s  in  Pointers) 

renames  Available_Space  Operations. Save_Node; 


procedure  Save_List  (Saved_Head  s  in  Pointers? 

Saved  Tail  s  in  Pointers; 

Node_Count  s  in  POSITIVE) 

renames  Available_Space_Operations.Save_List; 


— begin  package  Unbounded_FIFO_Buffer 
— (see  header  for  package~body  for  details) 


begin 

—  — set  up  available  space  list  if  one  is  desired 
if  Initial_Available_Space_Size  >  0  then 

Add  Nodes  To  Available_Space_List: 

lor  I  Tn  I.  .Initial_Available_Space_Size  loop 
Available_Tail.Next  :=  NEW  Nodes? 
AvailableJTail  :=  Available_Tail.Next; 

end  loop  Add_Nodes_to_Available_Space_list; 

Available_Length  In*  :ial_Available_Space_Size; 


end  if; 
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end  Unbounded_FIFO_Buffer; 

3. 3. 7. 1.9. 4. 7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  with'd  by  this  part: 

1.  Unchecked_Deallocation 

Subprograms  and  task  entries: 

The  following  table  describes  the  subroutines  required  by  this  part: 


|  Name 

Type 

Source 

|  Description  | 

|  UNCHECKED 
|  DEALLOCATION 

generic 

function 

N/A 

|  Used  to  deallocate  memory  j 

1  1 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  Ada  predefined  package  STANDARD: 


|  Name 

Description  | 

|  STORAGE  ERROR 

1 

Raised  when  an  attempt  is  made  to  dynamically  allocate 
more  memory  than  is  available 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Packages : 

The  following  table  describes  the  packages  required  by  this  part  and  specified 
in  the  package  body  of  the  Abstract_Data  Structures  package: 


|  Name 

1  Type 

j  Description  | 

|  Available_Space_ 
j  List  Operations 

1 

generic 

package 

|  Contains  the  routines  required  to  retrieve 
!  a  node  from  and  place  a  node  in  the 
|  available  space  list 

Data  types: 

The  following  data  types  were  previously  defined  in  this  part's  package 
specification: 
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|  Name 

1  Type 

|  Ran  e 

|  Description  | 

|  Buf fer_ 

|  Statuses 

1 

|  discrete  | 
;  type 

1  1 

1  Empty, 

|  Available, 
Uninitialized 

|  Used  to  indicate  the  status  of  the  | 
i  buffer  | 

1  1 

The  following  data  types  were  previously  defined  in  the  private  portion  of  this 
part's  package  specification: 


I 

Name 

Type 

1 

Range 

1 

Description 

1 

1 

Nodes 

record 

1 

N/A 

1 

A  single  entity  in  the  buffer; 

contains  | 

1 

1 

data  and  a  pointer  to  the  next 

node 

Pointers 

access 

1 

N/A 

1 

Points  to  a  node  in  the  buffer 

1 

1 

Buffers 

record 

1 

N/A 

1 

Record  containing  the  value  of 

the  current  | 

I 

1 

1 

length,  head,  and  tail  of  the 

buffer  i 

Exceptions: 

The  following  exceptions  vere  previously  defined  in  this  part's  package 
specification: 


|  Name 

|  Description  | 

|  Buffer  Empty  | 

Error  condition  raised  if  an  attempt  is  made  to  look  at  or 

1 

retrieve  elements  from  an  empty  buffer 

|  Buffer  Not 

Raised  if  an  attempt  is  made  to  use  an  uninitialized  buffer 

i  Initialized 

3. 3. 7. 1.9. 4. 8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Vhen/Vhy  Raised 

1 

|  Storage  Error 

Raised  during  elaboration  of 

this  package  if  an  | 

1 

attempt  is  made  to  allocate 

memory  when  no  more  j 

1 

is  available 

1 

3. 3. 7. 1.9. 4. 9  LLCSC  DESIGN 


None. 
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3.3.7.1.9.4.10  UNIT  DESIGN 

3.3.7.1.9.4.10.1  INITIALIZE_BUFFER  UNIT  DESIGN 

This  procedure  initializes  a  buffer.  It  does  this  in  the  following  manner: 

1)  If  the  buffer  has  never  been  initialized  then:  o  places  a  dummy  node  in  the 
buffer  and  o  initializes  the  length  to  0 

2)  else  if  the  buffer  has  elements  in  it  then:  o  calls  the  Clear_Buffer 
procedure 

3)  else  if  the  buffer  has  a  length  of  0  then  o  does  nothing 

3.3.7.1.9.4.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 

3.3.7.1.9.4.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.4.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

|  Buffers 

|  in  out 

FIFO  buffer  being  initialized  | 

3.3.7.1.9.4.10.1.4  LOCAL  DATA 
None. 

3.3.7.1.9.4.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.4.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Initialize_Buffer  (Buffer  :  in  out  Buffers)  is 


— declaration  section 
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Current_Length  :  INTEGER  renames  Buffer .Current_Length; 

Head  :  Pointers  renames  Buffer. Head; 

Tail  :  Pointers  renames  Buffer. Tail; 


—  — begin  procedure  Initialize_Buf fer 


begin 

if  Current_Length  =  -1  then 

— handle  an  uninitialized  buffer 
Head  :«  New  Node; 

Tail  :  =  Head ; 

Current_Length  :*  0; 

elsif  Current_Length  >  0  then 

— handle  a  buffer  that  has  something  in  it 
Clear_Buffer(Buffer  ->  Buffer); 

else 


— current  length  ■  0  so  it  is  already  initialized 
NULL; 

end  if; 

end  Initialize_Buffer  ; 


3.3.7.1.9.4.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  specification  of  Unbounded_FIFO_Buffer: 


|  Name 

1  Type 

|  Description  | 

|  Clear 
j  Buffer 

|  procedure 

1 

|  Returns  all  the  nodes  in  a  buffer  to  the  available  | 
i  space  list  j 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


t 


f 
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1 

Name 

Type 

Range 

|  Description 

1 

1 

Nodes 

record 

N/A 

|  A  single  entity  in  the  buffer; 

contains 

1 

1 

|  data  and  a  pointer  to  the  next 

node 

1 

Pointers 

access 

N/A 

|  Points  to  a  node  in  the  buffer 

1 

Buffers 

record 

N/A 

|  Record  containing  the  value  of 

the  current 

1 

1 

|  length,  head,  and  tail  of  the 

buffer 

1 

3.3.7.1.9.4.10.1.8  LIMITATIONS 


None. 


3.3.7.1.9.4.10.2  CLEAR_BUFFER  UNIT  DESIGN 

This  procedure  returns  all  the  elements  in  a  buffer,  except  for  the  dummy  node, 
to  the  available  space  list.  If  this  routine  is  sent  an  uninitialized  buffer, 
a  Buffer_Not_Initialized  exception  is  raised. 


3.3.7.1.9.4.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 


3.3.7.1.9.4.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.4.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

|  Buffers 

|  in  out 

FIFO  buffer  being  cleared  | 

3.3.7.1.9.4.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  objects  maintained  local  to  this  part: 


|  Name  | 

1  Type 

|  Description  | 

|  This_Node  | 

|  Pointers 

|  Node  to  be  placed  in  the  available  space  list  | 
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3.3.7.1.9.4.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.4.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  parts 
procedure  Clear_Buffer  (Buffer  :  in  out  Buffers)  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Buffer. Current_Length; 

Head  :  Pointers  renames  Buffer. Head; 

Tail  :  Pointers  renames  Buffer. Tail; 


This  Node  :  Pointers; 


—  — begin  procedure  Clear  Buffer 


begin 

— make  sure  this  is  an  initialized  buffer 
if  Current_Length  -  -1  then 
raise  Buffer_Not_Initialized; 
end  if; 

— placed  nodes  in  the  available  space  list 
Save_List  (Saved_Head  ->  Head. Next, 
Saved_Tail  »>  Tail, 

Node_Count  ->  Current_Length) ; 

— reinitialize  buffer  variables 
Current_Length  :■  0; 

Head. Next  :*  NULL; 

Tail  :-  Head; 

end  Clear  Buffer  ; 


3.3.7.1.9.4.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded_FIFO_Buf fer: 
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|  Name 

Type 

Description  | 

|  Save  List 

1 

procedure 

Handles  placing  a  list  of  nodes  in  the  available  | 

space  list  j 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


1 

Name 

Type 

Range 

|  Description 

1 

1 

Nodes 

record 

N/A 

|  A  single  entity  in  the  buffer; 

contains 

1 

j  data  and  a  pointer  to  the  next 

node 

1 

Pointers 

access 

N/A 

|  Points  to  a  node  in  the  buffer 

Buffers 

record 

N/A 

j  Record  containing  the  value  of 

the  current 

1 

j  length,  head,  and  tail  of  the 

buffer 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  AbstractDataStructures.  UnboundedFIFO- 
Buffer: 


|  Name 

|  Description  | 

|  Buffer_Not_ 
j  Initialized 

|  Raised  if  an  attempt  is  made  to  use  an  uninitialized  buffer  | 

1  1 

3.3.7.1.9.4.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

When/Why  Raised  | 

|  Buffer  Not  Initialized 

1  "  " 

Raised  if  an  attempt  is  made  to  use  an  | 

uninitialized  buffer 

3.3.7.1.9.4.10.3  FREE_MEMORY  UNIT  DESIGN 

This  procedure  deallocates  the  memory  occupied  by  the  available  space  list. 
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3.3.7.1.9.4.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 

3.3.7.1.9.4.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.4.10.3.3  INPUT/CUTPUT 
None. 

3.3.7.1.9.4.10.3.4  LOCAL  DATA 
Data  objects: 


The  following  table 

describes 

the  data  objects  maintained  by  this  part: 

|  Name 

Type 

|  Value 

|  Description  | 

|  Node  to  be  Freed 

1 

Pointers 

|  N/A 

1 

|  Pointer  to  the  node  to  be  | 

|  deallocated  j 

3.3.7.1.9.4.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.4.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Free_Memory  is 


— declaration  section 


Node  to  be  Freed  :  Pointers; 


—  — begin  procedure  Free_Memory 


begin 

Clear  Out_Available_Space_List: 

while  Available_Head  /=  Available_Tail  loop 

Node  To  Be_Freed  :-  Available_Head; 
Available  Head  :»  Available  Head. Next; 
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Free_Node  (Vhich_Node  =>  Node_to_be_Freed) ; 
end  loop  Clear_Out_Available_Space_List ; 
AvailableLength  :=  0; 
end  Free_Memory  ; 


3.3.7.1.9.4.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded  FIFO  Buffer: 


|  Name 

Type 

Description  | 

|  FreeNode 

procedure 

Instantiation  of  UNCHECKED_DEALLOCATION  | 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  to  the  Abstract_Data_Structures.  Unbounded_FIFO_Buffer 
package: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


1 

Name 

Type 

Range 

|  Description 

1 

1 

Nodes 

record 

N/A 

|  A  single  entity  in  the  buffer; 

contains 

data  and  a  pointer  to  the  next 

node 

1 

Pointers 

access 

N/A 

j  Points  to  a  node  in  the  buffer 

1 

Buffers 

record 

N/A 

j  Record  containing  the  value  of 

the  current 

1 

|  length,  head,  and  tail  of  the 

buffer 

Data  objects: 
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The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Unbounded_FIFO_Buf fer : 


|  Name  |  Type  |  Description 


Available 

Space 


Buffers 


List  of  available  nodes;  nodes  will  be  added  to 
list  when  Retrieve_Element  is  called  and 
retrieved  from  the  list  when  Add_Element  is 
called;  the  nodes  in  the  list  are  deallocated 
when  Clear_Memory  is  called 


The  following  table  summarizes  the  data  objects  required  by  this  part  and 
defined  in  the  package  body  of  Unbounded_FIFO_Buf fers 


|  Name 

Type 

Value 

|  Description 

)  Available 

INTEGER 

Available  Space. 

1  Indicates  the  current  length  of 

|  Length 

Current  Length 

the  available  space  list 

|  Available 

Pointers 

Available  Space. 

Points  to  the  head  node  in 

the 

j  Head 

Head 

available  space  list 

j  Available 

Pointers 

Available  Space. 

Points  to  the  tail  node  in 

the 

|  Tail 

Tail 

available  space  list 

3.3.7.1.9.4.10.3.8  LIMITATIONS 


None. 


3.3.7.1.9.4.10.4  ADD_ELEMENT  UNIT  DESIGN 

This  procedure  adds  an  element  to  the  end  of  the  FIFO  buffer. 

If  the  buffer  has  not  been  initialized,  the  exception  Buffer_Not_Initialized  is 
raised. 

The  Storage  Error  exception  is  raised  if  a  call  to  this  routine  requires  memory 
to  be  dynamically  allocated  when  no  more  memory  is  available. 


3.3.7.1.9.4.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 


3.3.7.1.9.4.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


CAMP  Software  Detailed  Design  Document 


Page  1774 


3.3.7.1.9.4.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type 

|  Mode 

|  Description  | 

|  Buffer 
|  New  Element  | 

Buffers 

Elements 

in  out 
in 

|  FIFO  buffer  being  accessed 
|  Element  to  be  added  to  the  buffer  ; 

3.3.7.1.9.4.10. 

4.4  LOCAL 

DATA 

None. 


3.3.7.1.9.4.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.4.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Add_Element  (New  Element  :  in  Elements; 

Buffer  :  in  out  Buffers)  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Buffer .Current_Length; 
Tail  :  Pointers  renames  Buffer. Tail; 

New  Tail  :  Pointers; 


—  — begin  procedure  Add_Element 


begin 

— make  sure  buffer  has  been  initialized 
if  Current_Length  *  -1  then 
raise  Buffer_Not_Initialized; 
end  if; 

— now  get  a  node 
New_Tail  :=  New_Node; 

— now  adjust  the  buffer 
Tail. Next  :=  New_Tail; 

Tail  :=  New  Tail; 
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Tail. Data  :=  Nev_Element; 

Current_Length  :=  Current_Length  +  1; 

end  Add  Element  ; 


3.3.7.1.9.4.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded_FIFO_Buf fer: 


|  Name 

1  Type 

|  Description  | 

|  New  Node 

1  " 

1 

|  function 
1 

1 

|  Returns  a  node  to  the  calling  routine;  will  get  a  | 
j  node  from  the  available  space  list  if  possible,  j 
|  otherwise  will  allocate  a  new  node 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  to  the  Abstract_Data_Structures.  Unbounded_FIFO_Buffer 
package: 

|  Name  | 

Type  | 

Description  | 

|  Elements  | 

private  | 

User  defined  type  of  data  contained  in  the  buffer  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


1 

Name 

Type 

1 

Range 

|  Description 

1 

1 

1 

Nodes 

record 

1 

1 

N/A 

|  A  single  entity  in  the  buffer; 
j  data  and  a  pointer  to  the  next 

contains  j 

node  j 

1 

Pointers 

access 

1 

N/A 

j  Points  to  a  node  in  the  buffer 

1 

1 

Buffers 

record 

1 

N/A 

j  Record  containing  the  value  of 
j  length,  head,  and  tail  of  the 

the  current  j 
buffer  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Unbounded_FIF0_- 
Buffer: 
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|  Name  |  Description 


|  Buffer_Not_  |  Raised  if  an  attempt  is  made  to  use  an  uninitialized  buffer  | 
j  Initialized  j  j 


The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  Ada  predefined  package  STANDARD: 


|  Name  |  Description 


|  STORAGE_ERROR  |  Raised  wh«n  an  attempt  is  made  to  dynamically  allocate  | 
]  j  more  memory  than  is  available  j 


3.3.7.1.9.4.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Vhen/Vhy  Raised  | 

|  Storage  Error 

! 

j  Buffer  Not  Initialized 

1  "  ”  1 

|  Raised  if  an  attempt  is  made  to  allocate  memory  | 
j  when  no  more  is  available  j 
j  Raised  if  an  attempt  is  made  to  use  an  i 
j  uninitialized  buffer  j 

3.3.7.1.9.4.10.5  RETRIEVE_ELEMENT  UNIT  DESIGN 

This  procedure  retrieves  the  oldest  element  from  the  FIFO  buffer,  places  the 
spare  node  on  the  available  space  list,  and  updates  the  status  of  the  FIFO 
buffer. 

If  the  buffer  has  not  been  initialized,  a  Buffer_Not_Initialized  exception  is 
raised. 

If  the  buffer  is  empty,  a  Buffer  Empty  exception  is  raised. 


3.3.7.1.9.4.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 


3.3.7.1.9.4.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.7.1.9.4.10.5.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

Description  | 

|  Buffer 
|  Old  Element 

Buffers 

Elements 

in  out 
out 

FIFO  buffer  being  accessed  | 

Element  retrieved  from  the  buffer 

3.3.7.1.9.4.10.5.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  objects  maintained  local  to  this  part: 


|  Name 

Type 

Description  | 

|  This_Node 

Pointers 

Node  to  be  placed  in  the  available  space  list  | 

3.3.7.1.9.4.10.5.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.4.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Retrieve_Element  (Buffer  :  in  out  Buffers; 

Old  Element  :  out  Elements)  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Buffer. Current_Length; 
Head  :  Pointers  renames  Buffer. Head; 

This  Node  :  Pointers; 


—  — begin  procedure  Retrieve_Element 


begin 

— make  sure  an  element  is  available 
if  Current_Length  =  -1  then 

raise  Buffer  Not  Initialized; 
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elsif  Current_Length  =  0  then 
raise  Buffer  Empty; 
end  if; 

— save  dummy  node  in  the  available  space  list 
This_Node  :=  Head; 

Head  :*  Head. Next; 

Save_Node  (Saved_Node  =>  This_Node); 

— retrieve  element  (its  node  becomes  the  new  dummy  node) 
01d_Element  :*  Head. Data; 

— update  buffer  status 
Current_Length  Current_Length  -  1; 

end  Retrieve  Element  ; 


3.3.7.1.9.4.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded  FIFOBuffer: 


|  Name  | 

1  Type 

|  Description  | 

|  Save_Node  | 

procedure  j 

|  Handles  placing  a  node  in  the  available  space  list  | 

Data  type.,: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  to  the  Abstract_Data_Structures.  Unbounded_FIFO_Buffer 
package : 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 
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Name 

I 

Type 

|  Range 

|  Description 

1 

Nodes 

1 

record 

I  N/A 

1 

|  A  single  entity  in  the  buffer; 
data  and  a  pointer  to  the  next 

contains 

node 

1 

1 

Pointers 

1 

access 

j  N/A 

j  Points  to  a  node  in  the  buffer 

1 

Buffers 

1 

1 

record 

j  N/A 

1 

j  Record  containing  the  value  of 
j  length,  head,  and  tail  of  the 

the  current 
buffer 

1 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Unbounded_FIFO_- 
Buffer: 


|  Name  |  Description 


|  Buffer_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
j  j  retrieve  elements  from  an  empty  buffer 

j  Buffer_Not_  j  Raised  if  an  attempt  is  made  to  use  an  uninitialized  buffer  j 
|  Initialized  j  j 


3.3.7.1.9.4.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


1  Name  |  Vhen/Vhy  Raised 


|  Buffer  Empty  |  Raised  if  an  attempt  is  made  to  access  an  empty 

i  j  buffer 

|  Buffer  Not  Initialized  j  Raised  if  an  attempt  is  made  to  use  an  | 

|  |  uninitialized  buffer  j 


3.3.7.1.9.4.10.6  PEEK  UNIT  DESIGN 

This  function  returns  the  oldest  element  in  the  FIFO  buffer. 

If  the  buffer  has  not  been  initialized,  a  Buffer_Not_Initialized  exception  is 
raised. 

If  the  buffer  is  empty,  a  Buf fer_Empty  exception  is  raised. 


3.3.7.1.9.4.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 
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3.3.7.1.9.4.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.4.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

|  Buffers 

|  in  out 

FIFO  buffer  being  accessed  | 

3.3.7.1.9.4.10.6.4  LOCAL  DATA 


None. 


3.3.7.1.9.4.10.6.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.4.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Peek  (Buffer  :  in  Buffers)  return  Elements  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Buffer. Current_Length; 
Head  :  Pointers  renames  Buffer. Head; 


—  — begin  function  Peek 


begin 

— make  sure  something  is  there  to  look  at 
if  Current_Length  *  -1  then 

raise  Buffer_Not  Initialized; 
elsif  Current_LengtH  =  0  then 
raise  Buffer_Empty; 
end  if; 

return  Head. Next. Data; 


end  Peek  ; 
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3.3.7.1.9.4.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  parameters  to  the  Abstract_Data_Structures.  Unbounded_FIFO_Buf fer 
package: 


|  Name  |  Type  |  Description 


|  Elements  |  private  |  User  defined  type  of  data  contained  in  the  buffer  | 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


|  Name 

Type  |  Range 

Description  | 

|  Nodes 

1 

record  |  N/A 

1 

A  single  entity  in  the  buffer;  contains 
data  and  a  pointer  to  the  next  node 

|  Pointers 

access  |  N/A 

Points  to  a  node  in  the  buffer 

j  Buffers 

record  |  N/A 

Record  containing  the  value  of  the  current 

1 

1 

length,  head,  and  tail  of  the  buffer 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Unbounded_FIFO_- 
Buffer: 


|  Name  |  Description 


|  Buffer_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
!  retrieve  elements  from  an  empty  buffer 

j  Buffer_Not_  j  Raised  if  an  attempt  is  made  to  use  an  uninitialized  buffer 
j  Initialized  j 


3.3.7.1.9.4.10.6.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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i  Name  |  When/Why  Raised 


|  Buffer  Empty  |  Raised  if  an  attempt  is  made  to  access  an  empty  i 

|  j  buffer  ! 

j  Buffer_Not_Initialized  j  Raised  if  an  attempt  is  made  to  use  an 
j  j  uninitialized  buffer 


3.3.7.1.9.4.10.7  BUFFER_STATUS  UNIT  DESIGN 

This  function  returns  the  status  of  the  buffer  based  on  the  following 
algorithm: 

if  buffer  has  never  been  initialized  then  status  is  uninitialized  elsif  buffer 
has  no  nodes  in  it  then  status  is  empty  else  status  is  available 

3.3.7.1.9.4.10.7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 

3.3.7.1.9.4.10.7.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.4.10.7.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

|  Buffers 

|  in  out 

FIFO  buffer  being  accessed  | 

3.3.7.1.9.4.10.7.4  LOCAL  DATA 
None . 

3.3.7.1.9.4.10.7.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.4.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Buffer  Status  (Buffer  :  in  Buffers)  return  Buffer  Statuses  is 
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— declaration  section 


Current_Length  s  INTEGER  renames  Buffer. Current_Length; 
Status  :  Buffer  Statuses; 


—  — begin  function  Buf fer_Status 


begin 

if  CurrentJLength  =  -1  then 
Status  Uninitialized; 

elsif  Current_Length  -  0  then 
Status  :  =  Empty; 

else 

Status  Available; 

end  if; 

return  Status; 
end  BufferStatus  ; 

3.3.7.1.9.4.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Unbounded_FIFO_Buffer: 


|  Name 

1  Type 

|  Range 

|  Description  | 

|  Buffer_ 
Statuses  i 
1  1 

|  discrete 
type 

1  Empty,  i 
|  Available,  | 
|  Uninitialized 

|  Used  to  indicate  the  status  of  the  | 

|  buffer  j 

1  1 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 
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|  Name 

1  Type 

|  Range 

j  Description  | 

|  Buffers 

1 

|  record 

1 

|  N/A 

1 

|  Record  containing  the  value  of  the  current  | 

|  length,  head,  and  tail  of  the  buffer  j 

3.3.7.1.9.4.10.7.8  LIMITATIONS 
None. 

3.3.7.1.9.4.10.8  BUFFER_LENGTH  UNIT  DESIGN 

This  function  returns  the  length  of  the  current  buffer. 

If  the  buffer  has  not  been  initialized,  a  Buf fer_Not_Initialized  exception  is 
raised. 


3.3.7.1.9.4.10.8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 

3.3.7.1.9.4.10.8.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.4.10.8.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Buffer 

|  Buffers 

|  in  out 

FIFO  buffer  being  accessed  | 

3.3.7.1.9.4.10.8.4  LOCAL  DATA 
None. 

3.3.7.1.9.4.10.8.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.7.1.9.4.10.8.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Buffer  Length  (Buffer  :  in  Buffers)  return  NATURAL  is 


— declaration  section 


Current  Length  :  INTEGER  renames  Buffer. Current_Length; 


—  — begin  function  Buffer_Length 


begin 

—make  sure  the  buffer  has  a  length 
if  Current_Length  *  -1  then 
raise  Buf fer_Not_Initialized; 
end  if; 

return  Current_Length; 
end  BufferLength  ; 


3.3.7.1.9.4.10.8.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

4 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


|  Name 

!  Type 

|  Range 

|  Description  | 

|  Buffers 

1 

|  record 

1 

|  N/A 

1 

|  Record  containing  the  value  of  the  current  | 

|  length,  head,  and  tail  of  the  buffer  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Unbounded_FIFO_- 
Buffer: 
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|  Name  | 

Description  | 

|  Buffer  Not  | 

j  Initialized  j 

Raised  if  an  attempt  is  made  to  use  an  uninitialized  buffer  | 

1  1 

3.3.7.1.9.4.10.8.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

When/Why  Raised  | 

|  Buffer  Not  Initialized 

1  "  " 

Raised  if  an  attempt  is  made  to  use  an  | 

uninitialized  buffer  | 

3.3.7.1.9.4.10.9  DOTJJEXT  UNIT  DESIGN 

Given  an  input  pointer  P,  this  function  returns  the  value  of  P.Next. 

3.3.7.1.9.4.10.9.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.7.1.9.4.10.9.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.4.10.9.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Ptr 

1 

|  Pointers  | 
1  1 

in 

|  Pointer  to  the  node  whose  "next"  entry  is  to  | 
j  be  returned  j 

3.3.7.1.9.4.10.9.4  LOCAL  DATA 


None. 
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3.3.7.1.9.4.10.9.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.4.10.9.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Dot_Next  (Ptr  :  in  Pointers)  return  Pointers  is 
begin 

return  Ptr. Next; 
end  Dot  Next; 


3.3.7.1.9.4.10.9.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top-level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


|  Name 

Type 

Range 

Description  | 

|  Nodes 

1 

record 

N/A 

A  single  entity  in  the  buffer;  contains 
data  and  a  pointer  to  the  next  node 

|  Pointers 

access 

N/A 

Points  to  a  node  in  the  buffer 

Buffers 

1 

record 

N/A 

Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  buffer 

3.3.7.1.9.4.10.9.8  LIMITATIONS 
None. 


3.3.7.1.9.4.10.10  SETJJEXT  UNIT  DESIGN 

Given  an  two  input  pointers,  P  and  Q,  this  procedure  sets  P.Next  equal  to  Q. 


3.3.7.1.9.4.10.10.1  REQUIREMENTS  ALLOCATION 


None. 
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3.3.7.1.9.4.10.10.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.4.10.10.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

|  Ptr 

1 

|  Pointers 

1  1 

1 

|  Pointer  to  the  node  whose  "next" 
j  is  to  be  modified 

entry  | 

1 

|  Ptr  dot_Next 

j  Pointers  | 

1  i° 

j  Value  to  which  Ptr. Next  is  to  be 

set  | 

3.3.7.1.9.4.10.10.4  LOCAL  DATA 


None. 


3.3.7.1.9.4.10.10.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.4.10.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr_dot_Next  :  in  Pointers)  is 

begin 

Ptr. Next  :=  Ptr_dot_Next; 
end  Set  Next; 


3.3.7.1.9.4.10.10.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top-level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


# 
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|  Name  j  Type  |  Range  |  Description 


Nodes 


record  |  N/A 


Pointers  j  access  j  N/A 
Buffers  j  record  j  N/A 


A  single  entity  in  the  buffer;  contains 
data  and  a  pointer  to  the  next  node 
Points  to  a  node  in  the  buffer 
Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  buffer 


3.3.7.1.9.4.10.10.8  LIMITATIONS 


None. 


3.3.7. 1.9.5  NONBLOCKINGCIRCULARBUFFER  PACKAGE  DESIGN  (CATALOG  #P333-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  circular  buffering  operations  on  incoming  data.  These  operations 
are  performed  in  a  non-blocking  fashion  such  that  if  the  buffer  is  full, 
incoming  data  will  overwrite  old  data.  The  head  of  the  buffer  always  points  to 
a  dummy  node.  The  first  node  following  the  dummy  node  contains  the  next  piece 
of  data  to  be  retrieved.  The  tail  always  points  to  where  the  next  element 
should  be  added.  If  the  tail  points  to  the  element  immediately  in  front  of  the 
head,  the  buffer  is  empty.  If  the  tail  points  to  the  same  element  as  the  head, 
the  buffer  is  full.  This  is  illustrated  below. 

Empty  circular  buffer:  +-+  < - Head  +-+  +-+  +-+  < - Tail  +-+  +-+  +-+  +-+ 

Full  circular  buffer:  Tail - >+-+  < - Head  +-+  +-+  +-+  +-+  +-+  +-+  +-+ 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 


3. 3. 7. 1.9. 5. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 7. 1.9. 5. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified  in  the  package  specification  of  the  Abstract_Data_Structures  package: 


Data  types: 
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The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part : 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Initial 
j  Buffer  Size 

|  POSITIVE  | 
1  1 

|  N/A 

Maximum  number  of  elements  which  can  | 
be  in  the  buffer  at  any  given  time  [ 

3. 3. 7. 1.9. 5. 4 

LOCAL  DATA 

None. 


3. 3. 7. 1.9. 5. 5  PROCESS  CONTROL 
Not  applicable. 

3.3. 7. 1.9. 5. 6  PROCESSING 

The  follow,  j  describes  the  processing  performed  by  this  part: 

separate  (Abstract_Data_Structures) 
package  body  Nonblocking_Circular_Buf fer  is 

end  Nonblocking_Circular_Buf fer; 


3. 3. 7. 1.9. 5. 7  UTILIZATION  OP  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  data  types  were  previously  defined  in  this  part's  package 
specification: 
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i  Name  |  Type  |  Range  |  Description 


Buf fer_Range 

1 

NATURAL 

1 

0  .. 

|  Used  to  dimension  the  list  of 

subtype 

1 

Buffer  Size 

|  elements 

Buf fer_ 

discrete 

1 

Empty, 

|  Used  to  indicate  the  status  of 

Statuses 

1 

1 

type 

1 

Available, 

Full 

j  the  buffer 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs  t rac  t_Data_S t rue tures .  Nonblocking_Ci  rcular  JBuf  f  er  package : 


|  Name 

Type 

|  Range 

|  Description  | 

|  Lists 

array 

|  N/A 

|  Array  of  elements 

j  Buffers 

1 

record 

j  N/A 

j  List  of  data  along  with  relevant 
j  information  j 

Data  objects: 

The  following  data  objects  were  previously  defined  in  this  part's  package 
specification: 


|  Name  | 

1  Type 

|  Value 

|  Description  | 

|  Buffer  Size  | 

|  POSITIVE 

|  Initial 

|  Number  of  usable  elements  in  a 

1  1 

1  1 

Buffer_Size  | 

j  buffer 

Exceptions: 

The  following  exceptions  were  previously  defined  in  this  part's  package 
specification: 


|  Name 

|  Description  | 

|  Buffer  Empty 

1 

1 

|  Error  condition  raised  if  an  attempt  is  made  to 
j  look  at  or  retrieve  elements  from  an  empty 
j  buffer 

3. 3. 7. 1.9. 5. 8 

LIMITATIONS 

None. 

3.3.7. 1.9. 5. 9 

LLCSC  DESIGN 

None. 
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3.3.7.1.9.5.10  UNIT  DESIGN 

3.3.7.1.9.5.10.1  CLEAR_BUFFER  UNIT  DESIGN 

This  procedure  clears  a  buffer  by  setting  the  Head  to  0,  the  Tail  to  1,  and  the 
length  to  0. 

3.3.7.1.9.5.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 

3.3.7.1.9.5.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.5.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Buffer 

j  Buffers 

out 

|  Nonblocking  circular  buffer  being 

1 

i 

|  accessed 

3.3.7.1.9.5.10.1.4  LOCAL  DATA 
None. 

3.3.7.1.9.5.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.5.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Clear_Buffer  (Buffer  :  out  Buffers)  is 

— declaration  section 

Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 

Current_Length  :  Buffer_Range  renames  Buffer. Current_Length; 
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—  — begin  procedure  Clear_Buffer 


begin 

Head  : =  0 

Tail  :  =  1 

Current_Length  :=.  0 

end  Clear  Buffer  ; 


3.3.7.1.9.5.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Nonblocking_Circular_Buffer  package: 

|  Name  |  Type  |  Range  |  Description 


|  BufferRange  |  NATURAL  |  0  ..  Used  to  dimension  the  list  of 

j  .  j  subtype  j  Buffer_Size  elements 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Nonblocking_Circular_Buffer  package: 


|  Name  |  Type  |  Range  |  Description 


|  Buffers  |  record  |  N/A 


List  of  data  along  with  relevant 
information 


3.3.7.1.9.5.10.1.8  LIMITATIONS 


None. 


3.3.7.1.9.5.10.2  ADD_ELEMENT  UNIT  DESIGN 

This  procedure  adds  an  element  to  the  end  of  the  buffer,  overwriting  old  data 
if  the  buffer  is  full.  If  data  was  overwritten,  both  the  head  and  tail  of  the 
buffer  are  adjusted  to  reflect  the  current  status  of  the  buffer.  If  data  was 
not  overwritten,  only  the  tail  of  the  buffer  is  adjusted. 
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3.:*. 7. 1.9. 5. 10. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 


3.3.7.1.9.5.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.5.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type 

|  Mode 

|  Description  | 

|  Buffer  | 

j  New  Element  | 

Buffers 

Elements 

|  out 

1  i° 

|  Circular  buffer  being  accessed  j 

|  Element  to  be  added  to  the  buffer  j 

3.3.7.1.9.5.10. 

2.4  LOCAL 

DATA 

None. 


3.3.7.1.9.5.10.2.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.5.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Add_Element  (Nev  Element  :  in  Elements; 

Bufler  :  in  out  Buffers)  is 


— declaration  section 


Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 

Current_Length  :  Buffer_Range  renames  Buf fer.Current_Length; 

List  :  Lists  renames  Buffer. List; 


—  — begin  procedure  Add  Element 


begin 


List(Tail)  :=  Nev  Element; 
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if  Head  =  Tail  then 

— buffer  was  already  full  and  an  element  was  overwritten;  therefore, 
— both  head  and  tail  need  to  be  advanced,  but  Current_Length  does 
— not  need  to  be  changed 

if  Tail  =  BufferSize  then 
Head  :  =  0; 

Tail  :  —  0; 
else 

Head  :  =  Head  +  1; 

Tail  :=  Tail  +  1; 
end  if; 

else 

— buffer  was  not  already  full;  therefore,  the  Current_Length  needs 
—  to  be  increment  and  only  the  tail  needs  to  be  advanced 

if  Tail  »  Buffer_Size  then 
Tail  :«  0; 
else 

Tail  :«  Tail  +  1; 
end  if; 

Current_Length  :«  CurrentLength  +  1; 
end  if; 

end  Add  Element  ; 


3.3.7.1.9.5.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  types  to  the  Nonblocking_Circular_Buffer  package: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Nonblocking_Circular_Buffer  package: 
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|  Name  |  Type  |  Range  |  Description 


|  BufferRange  |  NATURAL  |  0  ..  |  Used  to  dimension  the  list  of 

j  j  subtype  j  Buffer_Size  j  elements 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs  t  rac t  Da ta_S  t  rue tures . Nonblocking_Ci r cular_Buf f er  package : 


|  Name  |  Type  |  Range  |  Description  j 


Buffers  |  record  |  N/A  |  List  of  data  along  with  relevant 

i  j  j  information 

Lists  j  array  |  N/A  j  Array  of  elements 


Data  objects: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Nonblocking_Circular_Buf fer: 


|  Name  | 

1  Type 

|  Value 

|  Description  | 

|  Buffer  Size  | 

POSITIVE  | 

|  Initial 

|  Number  of  usable  elements  in  a 

1  "  1 

!  BufferSize 

j  buffer 

3.3.7.1.9.5.10.2.8  LIMITATIONS 
None. 

3.3.7.1.9.5.10.3  RETRI EVE_ELEMENT  UNIT  DESIGN 

This  procedure  returns  the  first  element  in  the  circular  buffer. 

If  there  are  no  elements  in  the  buffer,  a  Buffer_Empty  exception  is  raised. 

3.3.7.1.9.5.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 

3.3.7.1.9.5.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.7.1.9.5.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type 

|  Mode 

|  Description  | 

|  Buffer  | 

j  Old  Element  j 

Buffers 

Elements 

|  out 
j  out 

|  Circular  buffer  being  accessed  | 

j  Element  retrieved  from  the  buffer  j 

3.3.7.1.9.5.10. 

3.4  LOCAL 

DATA 

None. 


3.3.7.1.9.5.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.5.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  p?rt: 

procedure  RetrieveElement  (Buffer  :  in  out  Buffers; 

Old  Element  :  out  Elements)  is 


— declaration  section 


Head  :  Buffer_Range  renames 
Tail  :  Buffer_Range  renames 
Current_Length  :  Buffer~Range  renames 
List  :  Lists  renames 


Buffer. Head; 

Buffer. Tail; 

Buffer. Current_Length; 
Buffer. List; 


- begin  procedure  Retrieve_Element 


begin 

— make  sure  there  is  something  there  to  retrieve 
if  Current_Length  =  0  then 
raise  Buf fer_Empty; 
end  if; 

— advance  the  head  to  get  to  the  next  element  to  go  out 
if  Head  -  Buffer_Size  then 
Head  :=  0; 
else 

Head  :  =  Head  +  1; 
end  if; 
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— now  retrieve  the  element  and  update  the  state  of  the  buffer 
01d_Element  :=  List(Head); 

Current_Length  :=  Current_Length  -  1; 

end  Retrieve  Element  ; 


3.3.7.1.9.5.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  types  to  the  Nonblocking_Circular_Buffer  package: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Nonblocking_Circular_Buffer  package: 


|  Name  |  Type  |  Range  |  Description 


|  Buf fer_Range  NATURAL  |  0  ..  |  Used  to  dimension  the  list  of 

j  subtype  j  BufferJSize  j  elements 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs t rac t_Da ta_S t rue t ures . Nonblocking_Circular_Buf f er  package : 


|  Name  |  Type  |  Range  |  Description 


|  Buffers  |  record  |  N/A  List  of  data  along  vith  relevant  | 
i  i  information  j 
j  Lists  j  array  j  N/A  Array  of  elements  j 


Data  objects: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Nonblocking_Circular_Buffer : 
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|  Name 

Type 

Value 

Description  | 

|  Buffer  Size 

1 

POSITIVE 

Initial 

Buffer  Size 

Number  of  usable  elements  in  a  | 

buffer  | 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Nonblocking_Circular_Buf fer: 


|  Name 

Description  | 

|  Buffer  Empty 
! 

1 

Error  condition  raised  if  an  attempt  is  made  to  | 

look  at  or  retrieve  elements  from  an  empty  j 

buffer  j 

3.3.7.1.9.5.10.3.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  | 

|  Description  | 

|  Buffer  Empty  | 
1  "  1 

Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
retrieve  elements  from  an  empty  buffer 

3.3.7.1.9.5.10.4  PEEK  UNIT  DESIGN 

This  function  returns  the  data  contained  in  the  first  element  in  the  buffer 
without  changing  the  state  of  the  buffer  (i.e.,  the  element  is  not  removed  from 
the  buffer). 

If  there  are  no  elements  in  the  buffer,  a  Buffer  Empty  exception  is  raised. 


3.3.7.1.9.5.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 


3.3.7.1.9.5.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.5.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Buffer 

|  Buffers 

|  out 

|  Circular  buffer  being  accessed  | 

3.3.7.1.9.5.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Spot 

1 

|  Buffer  Range 

1 

|  N/A 

|  Marks  the  spot  in  the  buffer  containing  | 
j  the  element  to  be  looked  at  j 

3.3.7.1.9.5.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.5.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Peek  (Buffer  :  in  Buffers)  return  Elements  is 


— declaration  section 


Head  :  Buffer_Range  renames  Buffer. Head; 

CurrentLength  :  Buffer_Range  renames  Buffer. CurrentLength; 

List  :  Lists  renames  Buffer. List; 

Spot  :  Buffer_Range; 


—  — begin  function  Peek 


begin 

— make  sure  there  is  something  to  peek  at 
if  Current_Length  -  0  then 
raise  Buffer_Empty; 
end  if; 

— determine  location  of  desired  element 
if  Head  »  Buffer  Size  then 
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Spot  :=  0; 
else 

Spot  :=  Head  +  1; 
end  if; 

— return  requested  element 
return  List(Spot); 

end  Peek  ; 


3.3.7.1.9.5.10.4.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  types  to  the  Nonblocking_Circular_Buffer  package: 


|  Name  |  Type  |  Description 


|  Elements  |  private  |  User  defined  type  of  data  contained  in  the  buffer 


The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Nonblocking_Circular_Buf fer  package: 


|  Name  |  Type  |  Range  |  Description 


|  Buffer_Range  |  NATURAL  |  0  ..  |  Used  to  dimension  the  list  of 

|  j  subtype  j  Buffer_Size  j  elements  ! 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Nonblocking_Circular_Buffer  package: 


|  Name  |  Type  |  Range  |  Description 


|  Buffers  |  record  |  N/A  |  List  of  data  along  with  relevant 

jjj|  information 
j  Lists  j  array  j  N/A  j  Array  of  elements 


Data  objects: 

The  following  table  summarize  ihe  types  required  by  this  part  and  defined  in 
the  package  specification  of  Nonblocking_Circular_Buffer: 
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|  Name 

Type 

Value 

Description  | 

|  Buffer  Size 

1 

POSITIVE 

Initial_ 
Buffer  Size 

Number  of  usable  elements  in  a  | 

buffer  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Nonblocking_Circular_Buf fer: 


|  Name  | 

Description 

1 

|  Buffer  Empty  | 

Error  condition  raised  if  an  attempt  is  made 

to  | 

!  1 

1  1 

look  at  or  retrieve  elements  from  an  empty 
buffer 

1 

3.3.7.1.9.5.10.4 

.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  | 

Description 

1 

|  Buffer  Empty  | 

Error  condition  raised  if  an  attempt  is  made 

to  look  at  or  | 

1  1 

retrieve  elements  from  an  empty  buffer 

1 

3.3.7.1.9.5.10.5  BUFFER_STATUS  UNIT  DESIGN 

This  function  returns  the  current  status  of  the  buffer  according  to  the 
following  algorithm: 

if  there  are  no  elements  in  the  buffer  then  buffer  status  is  empty  elsif  if  the 
buffer  contains  the  maximum  number  of  elements  buffer  status  is  full  else 
buffer  status  is  available  end  if; 


3.3.7.1.9.5.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 


3.3.7.1.9.5.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.7.1.9.5.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Buffer 

|  Buffers 

|  out 

|  Circular  buffer  being  accessed  | 

3.3.7.1.9.5.10.5.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Status 

Buffer_Statuses 

N/A 

|  Current  status  of  the  buffer  | 

3.3.7.1.9.5.10.5.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.5.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Buffer  Status  (Buffer  :  in  Buffers)  return  Buffer  Statuses  is 


— declaration  section 


Current_Length  :  Buffer_Range  renames  Buffer. Current_Length; 
Status  :  Buffer_Statuses; 

—  — begin  function  Buffer  Status 


begin 

if  Current_Length  =  0  then 
Status  7-  Empty; 

elsif  Current_Length  *  Buffer_Size  then 
Status  :«  Full; 
else 

Status  :  =  Available; 
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end  if; 

return  Status; 
end  Buf fer_Status  ; 

3.3.7.1.9.5.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Nonblocking_Circular_Buffer  package: 


|  Name 

Type  |  Range 

Description  | 

|  Buffer  Range 

NATURAL  |  0  .. 

Used  to  dimension  the  list  of 

subtype  |  Buffer  Size 

elements 

|  Buffer 

discrete  j  Empty, 

Used  to  indicate  the  status  of 

|  Statuses 

type  j  Available, 

the  buffer 

1 

|  Full 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Nonblocking_Circular_Buffer  package: 


|  Name 

Type 

|  Range 

|  Description  | 

|  Buffers 

1 

record 

|  N/A 

1 

|  List  of  data  along  with  relevant  | 

j  information  j 

Data  objects: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Nonblocking_Circular_Buffer: 


|  Name 

Type 

Value 

|  Description  | 

|  Buffer  Size 

1 

POSITIVE 

• 

Initial_ 

Buffer_Size 

|  Number  of  usable  elements  in  a  | 

j  buffer  j 

3.3.7.1.9.5.10.5.8  LIMITATIONS 
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3.3.7.1.9.5.10.6  BUFFER_LENGTH  UNIT  DESIGN 

This  function  returns  the  current  length  of  the  buffer. 

3.3.7.1.9.5.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 

3.3.7.1.9.5.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.5.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Buffer 

|  Buffers 

|  out 

|  Circular  buffer  being  accessed  | 

3.3.7.1.9.5.10.6.4  LOCAL  DATA 
None. 

3.3.7.1.9.5.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.5.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Buf fer_Length  (Buffer  :  in  Buffers)  return  Buffer_Range  is 
begin 

return  Buffer. Current_Length; 
end  Buffer_Length  ; 

3.3.7.1.9.5.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 


UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 
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The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Nonblocking_Circular_Buf fer  package: 


|  Name  |  Type  |  Range  |  Description 


|  Buffer_Range  |  NATURAL  |  0  ..  |  Used  to  dimension  the  list  of 

j  j  subtype  j  Buffer_Size  j  elements 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs  t rac  t_Da  t a_S t  rue t ures . Nonblocki ng_Ci r cular_Buf f er  package : 


|  Name  |  Type  |  Range  |  Description 


|  Buffers  |  record  |  N/A  |  List  of  data  along  with  relevant 
|j  j|  information 


3.3.7.1.9.5.10.6.8  LIMITATIONS 
None. 


3. 3. 7. 1.9. 6  UNBOUNDEDPRIORITYQUEUE  PACKAGE  DESIGN  (CATALOG  #P334-0) 

This  genetic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  priority  queueing  operations  on  incoming  data.  The  head  of  the 
queue  always  points  to  a  dummy  node.  The  node  following  the  dummy  node 
contains  the  element  with  the  highest  priority.  The  tail  always  points  to  the 
element  with  the  lowest  priority. 

The  elements  will  be  ordered  in  the  queue  such  that:  1)  Elements  with  higher 
priorities  are  placed  before  those  with  lower  priorities.  2)  Elements  with  the 
same  priority  are  arranged  in  the  queue  in  a  first-in-first-out  manner. 

A  queue  must  be  initialized  before  it  is  used.  If  an  attempt  is  made  to  use  an 
uninitialized  queue,  the  exception  Queue_Not_Initialized  will  be  raised.  The 
Initialized_Queue  procedure  returns  an  initialized  queue.  The  Clear_Queue 
procedure  returns  the  nodes  of  a  queue  to  the  available  space  list  and  then 
returns  an  initialized  queue. 

An  available  space  list  is  maintained  local  to  this  part.  When  this  part  is 
elaborated  the  available  space  list  will  have  a  dummy  node  plus  Initial- 
Available  Space_Size  nodes.  When  nodes  are  added  to  the  queue,  the  Add_Element 
routine  will  try  to  get  a  node  from  the  available  space  list  before  attempting 
to  allocate  more  memory.  When  the  Retrieve  Element  routine  is  called,  the 
unused  node  will  be  returned  to  the  available  space  list  for  later  use.  The 
memory  committed  to  the  available  space  may  be  deallocated  by  calling  the 
Free  Memory  procedure. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 7. 1.9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 

3. 3. 7. 1.9. 6. 2  LOCAL  ENTITIES  DESIGN 
Data  structures: 

An  available  space  list  is  maintain  local  to  this  part's  package  body. 
Subprograms : 

The  following  subprograms  are  contained  local  to  this  body: 


|  Name 


Type  |  Description 


Free  Node 
Dot_fJext 

Set  Next 


procedure 

function 

procedure 


Instantiation  of  UNCHECKED_DEALLOCATION 
Given  a  pointer  P,  this  function  returns 
the  value  of  P.Next 

Given  two  points  P  &  Q,  this  procedure 
sets  P.Next  •  Q 


The  following  subprograms  are  contained  in  this  part  as  a  result  of  renaming 
operations  on  identically  named  routines  contained  in  the  locally  instantiated 
Avai lable_Space_Opera t ions  package . 


|  Name 

Type 

Description  | 

New_Node 

function 

Returns  a  node  to  the  calling  routine;  will  get  a 

node  from  the  available  space  list  if  nossible, 
otherwise  will  allocate  a  new  node 

Save_Node 

procedure 

Handles  placing  a  node  in  the  available  space  list 

SaveList 

procedure 

Handles  placing  a  list  of  nodes  in  the  available 
space  list 

This  package  body  contains  code  to  initialize  the  Available_Space  List.  This 
code  is  executed  when  the  package  is  elaborated.  If  the  generic  7ormal  object 
Initial_Available_Space_Size  is  greater  than  or  equal  to  1,  this  routine  then 
places  the  requested  number  of  nodes  (in  addition  to  the  dummy  node)  in  the 
available  space  list. 


3. 3. 7. 1.9. 6. 3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 
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( 

C 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified  in  the  package  specification  of  the  Abstract_Data_Structures  package: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Elements 
j  Priorities  | 
1  1 

|  private 
j  private 

|  User  defined 
|  User  defined 
i  node 

type  of  data  contained  in  the  queue 
type  determining  the  priority  of  the 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  Initial 

NATURAL 

Number  of  available  nodes  to  be  initially 

j  Available 

placed  in  the  available  space  list 

j  SpaceSize 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  ">" 

|  function 

Used  to  determine  ordering  of  priorities  | 

3. 3. 7. 1.9. 6. 4  LOCAL  DATA 
Data  objects: 

The  following  table  summarizes  the  data  objects  defined  by  this  part  as  the 
result  of  renames: 


|  Name 

1  Type 

Value 

Description 

1 

|  Available 

|  INTEGER 

Available  Space. 

Indicates  the  current  length  of  1 

j  Length 

Current  Length 

the  available  space  list 

j  Available 

j  Pointers 

Available  Space. 

Points  to  the  head  node  in 

the 

’  Head 

Head 

available  space  list 

|  Available 

j  Pointers 

Available  Space. 

Points  to  the  tail  node  in 

the 

j  Tail 

Tail 

available  space  list 
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3. 3. 7. 1.9. 6. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 7. 1.9. 6. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  parts 

with  UNCHECKED_DEALLOCATION ; 
separate  (Abstract_Data_Structures) 
package  body  Unbounded_Priority_Queue  is 

—  — declaration  section 


—  — this  pointers  is  accessed  ONLY  when  setting  up  the  Available_Space 
Initial_Head  :  Pointers  :*  new  Nodes; 

Available_Space  :  Queues  :■  (Current_Length  ->  0, 

Head  ->  Initial_Head, 

Tail  •>  Initial~Head); 

AvailableLength  :  INTEGER  renames  Available_Space.Current_Length; 
Available  Head  :  Pointers  renames  Aval lable_Space. Head; 
AvailableTail  s  Pointers  renames  Available_Space.Tail; 

procedure  Free  is  nev  UNCHECKED  DEALLOCATION 

(Object  ->  Nodes, 

Name  ■>  Pointers); 

procedure  Free_Node  (Which_Node  s  in  out  Pointers) 
renames  Free; 


function  Dot_Next  (Ptr  s  in  Pointers)  return  Pointers; 

procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr  dot  Next  :  in  Pointers); 


package  Available_Space_Opeiations  is  nev 
Aval lable_Space_Li s  t_0pera t i ons 


(Nodes 
Pointers 
Aval lable_Leng  t  h 
Available~Head 
Available~Tail 


•>  Nodes, 

->  Pointers, 

«>  Available_Length, 
->  Available_Head, 

->  Available  Tail); 


function  Nev_Node  return  Pointers 

renames  Aval lable_Space_Opera t  i ons .  New_Node ; 


procedure  Save_Node  (Saved_Node  :  in  Pointers) 

renames  Available_Space_Operations.  Save_Node; 

procedure  Save_List  (Saved  Head  :  in  Pointers; 

Saved  Tail  :  in  Pointers; 

Node  Count  :  in  POSITIVE) 


CAMP  Software  Detailed  Design  Document 


Page  1810 


renames  Avai lable_Space_Opera t i ons . Save_Lis t ; 


— begin  package  Unbounded_Priority_Queue 
— (see  header  for  package  body  for  details) 


begin 

—  — set  up  available  space  list  if  one  is  desired 
if  Initial_Available_Space_Size  >  0  then 

Add  Nodes  To  Available_Space_List: 

lor  I  Tn  T. .Initial~Available_Space_Size  loop 
Avai lable_Tail. Next  :■  NEV  Nodes; 
Available_Tail  Available_Tail.Next; 

end  loop  Add_Nodes_to_Available_Space_List; 

Available_Length  Initial_Available_Space_Size; 

end  if; 

end  Unbounded_Priority_Queue; 


3. 3. 7. 1.9. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  vith'd  by  this  part: 

1 .  UncheckedDeal loca t i on 

Subprograms  and  task  entries: 

The  following  table  describes  the  subroutines  required  by  this  part: 


|  Name 

Type  |  Source  | 

Description  | 

|  Unchecked_ 
j  Deallocation 

generic  |  N/A  j 

function  j 

Used  to  deallocate  memory  | 

1 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  Ada  predefined  package  STANDARD: 

|  Name 

|  Description 

1 

|  Storage_Error  |  Raised  when  an  attempt  is  made  to  dynamically  allocate 

more  memory  than  is  available 


UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 
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The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Packages : 

The  following  table  describes  the  packages  required  by  this  part  and  specified 
in  the  package  body  of  the  Abstract_Data_Structures  package: 


|  Name 

Type 

|  Description  | 

|  Available  Space_ 
i  List  Operations  j 

1  "  I 

generic 

package 

1 

|  Contains  the  routines  required  to  retrieve  | 
j  a  node  from  and  place  a  node  in  the 
|  available  space  list  j 

Data  types: 

The  following  data  types  were  previously  defined  in  this  part's  package 
specification: 


|  Name  | 

1  Type  | 

|  Range 

|  Description  | 

|  Queue 

discrete  | 

Empty, 

Used  to  indicate  the  status  of  the 

j  Statuses 

type 

Available, 

queue 

1  1 

Uninitialized 

The  following  data  types  were  previously  defined  in  the  private  portion  of  this 
part's  package  specification: 


Name 


I  Type 


Range 


Description 


Nodes 

1 

record 

1 

| 

N/A 

Pointers 

1 

1 

access 

1 

1 

N/A 

Queues 

1 

record 

1 

N/A 

A  single  entity  in  the  queue;  contains 
data  and  a  pointer  to  the  next  node 
Points  to  a  node  in  the  queue 
Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  queue 


Exceptions: 

The  following  exceptions  were  previously  defined  in  this  part's  package 
specification: 


|  Name  |  Description 


|  Queue_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
j  retrieve  elements  from  an  empty  queue  j 

j  Queue  Not_  j  Indicates  an  attempt  was  made  to  use  an  uninitialized  queue  j 
j  Initialized  |  I 
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3. 3. 7. 1.9. 6. 8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Why  Raised  | 

|  Storage  Error 

1 

1 

|  Raised  during  elaboration  of  this  package  if  an 
j  attempt  is  made  to  allocate  memory  when  no  more  j 
|  is  available  j 

3. 3. 7. 1.9. 6. 9  LLCSC  DESIGN 
None. 

3.3.7.1.9.6.10  UNIT  DESIGN 

3.3.7.1.9.6.10.1  INITIALIZE  UNIT  DESIGN 

This  procedure  initializes  a  queue  by  placing  a  dummy  node  in  it,  pointing  the 
head  and  the  tail  to  the  dummy  node,  and  setting  u:e  length  to  0. 

3.3.7.1.9.6.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 

3.3.7.1.9.6.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.6.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode  |  Description  | 

|  Queue 

1 

|  Queues 

1 

|  in  out  |  Unbounded  priority  queue  being  | 

i  j  manipulated  j 

3.3.7.1.9.6.10.1.4  LOCAL  DATA 


None. 
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3.3.7.1.9.6.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.6.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Initialize  (Queue  :  in  out  Queues)  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current_Length; 

Head  :  Pointers  renames  Queue. Head; 

Tail  :  Pointers  renames  Queue. Tail; 


—  — begin  procedure  Initialize 


begin 

if  CurrentLength  -  -1  then 

— handle  an  uninitialized  queue 
Head  New  Node; 

Tail  HeaU; 

Current_Length  0; 

elsif  CurrentLength  >  0  then 

— handle  a  queue  that  has  something  in  it 
Clear_Queue( Queue  ->  Queue); 

else 

— current  length  -  0  so  it  is  already  initialized 
NULL; 

end  if; 

end  Initialize  ; 


3.3.7.1.9.6.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 
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The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  specification  of  Unbounded_Priority_Queue: 


|  Name 

1  Type 

|  Description  | 

|  Clear_ 
j  Queue 

|  procedure 

1 

|  Returns  all  the  nodes  in  a  queue  to  the  available  | 
j  space  list  j 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded_Priority_Queue: 


|  Name 

1  Type 

|  Description 

1 

|  New  Node 

1  " 

1 

|  function 

1 

1 

|  Returns  a  node 
j  node  from  the 
j  otherwise  will 

to  the  calling  routine;  will  get  a  | 
available  space  list  if  possible, 
allocate  a  new  node  j 

Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  private  portion  of  the  Abstract_Data_Structures.Unbounded_Priority_Queue 
package: 


1 

Name 

1 

Type 

1 

Range 

Description  | 

1 

Nodes 

1 

record 

1 

N/A 

A  single  entity  in  the  queue;  contains 

1 

data  and  a  pointer  to  the  next  node 

1 

Pointers 

1 

access 

N/A 

Points  to  a  node  in  the  queue 

1 

Queues 

1 

record 

N/A 

Record  containing  the  value  of  the  current 

1 

1 

1 

length,  head,  and  tail  of  the  queue 

3.3.7.1.9.6.10.1.8  LIMITATIONS 


None. 


3.3.7.1.9.6.10.2  CLEAR_QUEUE  UNIT  DESIGN 

This  procedure  removes  the  nodes  from  a  queue  and  places  them  in  an  available 
space  list. 

The  Queue  Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  queue. 


3.3.7.1.9.6.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 
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3.3.7.1.9.6.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.6.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode  |  Description  | 

Queue 

|  Queues 

1 

|  in  out  |  Unbounded  priority  queue  being  | 

j  j  manipulated  j 

3.3.7.1.9.6.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  local  to  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  This  Node 

1 

Pointers 

N/A 

|  Points  to  the  node  to  be  returned  to  i 

j  the  available  space  list  1 

3.3.7.1.9.6.10.2.5  PROCESS  CONTROL 
Not  applicable 

3.3.7.1.9.6.10.2-6  PROCESSING! 

The  follow^  Mbes  the  processing  performed  by  this  part: 
procedure  ueue  (Queue  :  in  out  Queues)  is 

— declaration  section 

Current_Length  :  INTEGER  renames  Queue. Current_Length; 

Head  :  Pointers  renames  Queue. Head; 

Tail  :  Pointers  renames  Queue. Tail; 

This_Node  :  Pointers; 

—  — begin  procedure  Clear_Queue 
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begin 

— make  sure  this  is  an  initialized  queue 
if  Current_Length  =  -1  then 

raise  Queue_Not_Initialized; 

elsif  Current_Length  >  0  then 

— placed  nodes  in  the  available  space  list 
Save_List  (Saved_Head  ->  Head. Next, 
Saved_Tail  =>  Tail, 

Node_Count  ->  Current_Length) ; 

— reinitialize  queue  variables 
Current_Length  :-  0; 

Head. Next  :«  NULL; 

Tail  :*  Head; 

end  if; 

end  Clear  Queue  ; 


3.3.7.1.9.6.10.2.7  UTILIZATION  OP  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded_Priority_Queue: 


|  Save_List  |  procedure  |  Handles  placing  a  list  of  nodes  in  the  available 
j  j  j  space  list 


Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  private  portion  of  the  Abstract_Data_Structures.Unbounded_Priority_Queue 
package: 


|  Name 

Type 

Range 

Description  | 

Nodes 

record 

N/A 

A  single  entity  in  the  queue;  contains 
data  and  a  pointer  to  the  next  node 

Pointers 

access 

N/A 

Points  to  a  node  in  the  queue 

Queues 

record 

N/A 

Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  queue 
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Exceptions : 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
elsewhere  in  the  package  specification  of  Abstract  Data_Structures.Unbounded_- 
Priority_Queue: 


|  Name 

|  Description  | 

|  Queue  Empty 

1 

|  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
j  retrieve  elements  from  an  empty  queue  j 

3.3.7.1.9.6.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

When/Why  Raised  | 

|  Queue  Not  Initialized 

1  '  ‘ 

Raised  if  an  attempt  is  made  to  manipulate  an  | 

uninitialized  queue  | 

3.3.7.1.9.6.10.3  FREEMEMORY  UNIT  DESIGN 

This  procedure  deallocates  the  memory  taken  up  by  the  available  space  list. 

3.3.7.1.9.6.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 

3.3.7.1.9.6.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.6.10.3.3  INPUT/OUTPUT 
None. 

3.3.7.1.9.6.10.3.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 
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|  Name 

Type 

Value 

|  Description  | 

|  Node  to  be  Freed 

1 

Pointers 

N/A 

j  Points  to  the  node  to  be  | 

j  deallocated  j 

3.3.7.1.9.6.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.6.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Free  Memory  is 


— declaration  section 


Node  to  be  Freed  :  Pointers; 


- begin  procedure  FreeMemory 


begin 

Clear  Out_Available  Space_List: 

while  Ava liable Jiead  /-  Available  Tail  loop 
Node  To  Be_Freed  :-  Available_flead; 
AvaiIabIe_Head  :«  Aval lable_Head. Next; 
Free_Node  (Which_Node  ->  Node_to_be_Freed); 
end  loop  Clear_Out_Available_Space_List; 

Available_Length  0; 

end  Free_Memory  ; 


3.3.7.1.9.6.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded_Priority_Queue: 


CAMP  Software  Detailed  Design  Document 


Page  1819 


|  Name 

Type 

|  Description  | 

|  Free  Node  | 

procedure 

|  Instantiation  of  UNCHECKED_DEALL0CATI0N  | 

Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  private  portion  of  the  Abstract_Data_Structures.Unbounded_Priority_Queue 
package : 


1 

Name 

1 

Type 

1 

Range 

Description  | 

1 

Nodes 

1 

record 

1 

N/A 

A  single  entity  in  the  queue;  contains 

1 

1 

1 

data  and  a  pointer  to  the  next  node 

1 

Pointers 

1 

access 

N/A 

Points  to  a  node  in  the  queue 

1 

Queues 

1 

record 

N/A 

Record  containing  the  value  of  the  current 

1 

1 

1 

length,  head,  and  tail  of  the  queue 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  AbstractDataStructures.  Unbounded_Priority_Queue: 


|  Name 

Type 

Value 

Description 

|  Available 

INTEGER 

Available  Space. 

Indicates  the  current  length  of 

j  Length 

Current  length 

the  available  space  list 

j  Available 

Pointers 

Available  Space. 

Points  to  the  head  node  in  the 

j  Head 

Head 

available  space  list 

|  Available 

Pointers 

Available  Space. 

Points  to  the  tail  node  in  the 

|  Tail 

Tail 

available  space  list 

3.3.7.1.9.6.10.3.8  LIMITATIONS 
None. 


3.3.7.1.9.6.10.4  ADD_ELEMENT  UNIT  DESIGN 

This  procedure  adds  an  element  to  the  queue.  The  elements  are  added  such  that 
the  new  element  is  added  before  the  first  element  vhich  has  a  smaller  priority 
and  after  all  other  elements  which  a  greater  or  equal  priority. 

The  Queue_Empty  exception  is  raised  if  this  routine  is  called  with  an  empty 
queue. 


The  Queue  Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialTzed  queue. 
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The  Storage_Error  exception  is  raised  if  a  call  to  this  routine  requires  mt..iory 
to  be  dynamically  allocated  when  no  more  memory  is  available. 


3.3.7.1.9.6.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 


3.3.7.1.9.6.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.7.1.9.6.10.4.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

Description  | 

|  New  Element 

Elements 

in 

Element  to  be  placed  in  the  queue 

j  New  Priority 

Priorities 

in 

Priority  of  the  element  to  be  placed 

in  the  queue 

j  Queue 

Queues 

in  out 

Unbounded  priority  queue  being 

1 

manipulated 

3.3.7.1.9.6.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

Before  | 

|  Pointers 

|  N/A 

Points  to  the  element  which  will  go  before 

: 

the  new  element 

Here  | 

|  Pointers 

j  N/A 

Points  to  the  node  to  be  added  to  the  queue 

3.3.7.1.9.6.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.6.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Add_Element  (New  Element  :  in  Elements; 

New_Priority  :  in  Priorities; 


CAMP  Software  Detailed  Design  Document 


Page  1821 


Queue  :  in  out  Queues)  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current_Length; 

Head  :  Pointers  renames  Queue. Head; 

Tail  :  Pointers  renames  Queue. Tail; 

Before  :  Pointers; 

Here  :  Pointers; 


—  — begin  procedure  Add_Element 


begin 

— make  sure  queue  has  been  initialized 
if  Current_Length  -  -1  then 
raise  Queue_Not_Initialized; 
end  if; 

— find  the  nodes  which  are  to  go  before  and  after  the  new  element 

Before  Head; 

loop 

exit  when  (Before  -  Tail)  or  else 

(NewPriority  >  Before. Next. Priority); 

Before  :«  Before. Next; 
end  loop; 

— now  get  a  new  node 
Here  New_Node; 

— set  up  the  new  node 

Here. Priority  :*  New_Priority;  ' 

Here. Data  :  =  New_Element; 

Here. Next  Before. Next; 

Before. Next  :=*  Here; 

— readjust  the  tail,  if  required 
if  Before  -  Tail  then 
Tail  :  =  Here; 
end  if; 

— now  adjust  the  queue 
Current_Length  :=  Current_Length  +  1; 

end  Add  Element  ; 


3.3.7.1.9.6.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 
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The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded_Priority_Queue: 


|  Name  | 

Type 

Description  | 

|  New  Node 

1  " 

1  1 

function 

Returns  a  node  to  the  calling  routine;  will  get  a  | 
iiode  from  the  available  space  list  if  possible, 
otherwise  will  allocate  a  new  node  1 

The  following 
this  part  and 

table  summarizes  the  subroutines  and  task  entries  required  by 
defined  in  the  package  body  of  Unbounded_Priority_Queue: 

|  Name  | 

Type 

Description  | 

|  Free  Node  | 

procedure 

Instantiation  of  UNCHECKED_DEALLOCATION  | 

The  following  table  describes  the  subroutines  required  by  this  part  and  defined 
as  generic  formal  subroutines  to  the  Abstrac t  Data  Structures. Unbounded  - 
Priori  tyQueue  package: 


|  Name 

1  Type 

Description  | 

|  ">" 

|  function 

Used  to  determine  ordering  of  priorities  | 

Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  private  portion  of  the  Abstract_Data_Structures.Unbounded_Priority_Queue 
package: 


|  Name 


|  Type  |  Range  |  Description 


Nodes 

1 

| 

record 

1 

| 

N/A 

Pointers 

1 

1 

access 

1 

1 

N/A 

Queues 

1 

record 

1 

1 

N/A 

A  single  entity  in  the  queue;  contains 
data  and  a  pointer  to  the  next  node 
Points  to  a  node  in  the  queue 
Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  queue 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
elsewhere  in  the  package  specification  of  Abstract_Data_Structures.Unbounded_- 
Priority_Queue: 
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I  Name  |  Description 


|  Storage_  |  Raised  when  an  attempt  is  made  to  dynamically  allocate 
Error  j  more  memory  than  is  available 

j  Queue  Not_  j  Indicates  an  attempt  was  made  to  use  an  uninitialized  queue  j 
|  Initialized  j  j 


3.3.7.1.9.6.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised 


Storage_Error  Raised  if  an  attempt  is  raised  to  allocate  memory  j 

when  no  more  is  available 

Queue_Not_Initialized  Raised  if  an  attempt  is  made  to  manipulate  an 

uninitialized  queue  j 


3.3.7.1.9.6.10.5  RETRIEVE_ELEMENT  UNIT  DESIGN 
This  procedure  returns  the  first  element  in  the  queue. 

The  QueueEmpty  exception  is  raised  if  this  routine  is  called  with  an  empty 
queue. 

The  Queue  Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  queue. 


3.3.7.1.9.6.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 


3.3.7.1.9.6.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.6.10.5.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

1  Type 

|  Mode 

Description  | 

|  Queue 

|  Queues 

|  in  out 

Unbounded  priority  queue  being  | 

1 

1 

j 

manipulated  j 

|  Old  Element 

|  Elements 

j  out 

Data  retrieved  from  the  queue  j 

3.3.7.1.9.6.10.5.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  | 

Type 

|  Value 

|  Description  | 

|  This  Node  | 

1  "  1 

Pointers 

|  N/A 

1 

|  Points  to  the  node  to  be  returned  to  the  | 
j  available  space  list  j 

3.3.7.1.9.6.10.5.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.6.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Retrieve_Element  (Queue  :  in  out  Queues; 

Old  Element  :  out  Elements)  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current_Length; 
Head  :  Pointers  renames  Queue. Head; 

This  Node  :  Pointers; 


—  — begin  procedure  Retrieve  Element 


begin 

— make  sure  an  element  is  available 
if  Current_Length  =  -1  then 
raise  Queue_Not_Initialized; 
elsif  Current_Length  *  0  then 
raise  Queue_Empty; 
end  if; 
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— save  dummy  node  in  the  available  space  list 
This_Node  :=  Head; 

Head  :  =  Head. Next; 

Save_Node  (Saved_Node  =>  This_Node); 

— retrieve  element  (its  node  becomes  the  new  dummy  node) 
01d_Element  :=  Head. Data; 

— update  queue  status 
Current_Length  :=  Current_Length  -  1; 

end  Retrieve  Element  ; 


3.3.7.1.9.6.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Unbounded_Priority_Queue: 


|  Name  | 

1  Type  | 

|  Description  | 

|  SaveNode  | 

procedure  | 

|  Handles  placing  a  node  in  the  available  space  list  | 

Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  private  portion  of  the  Abstract_Data_Structures.Unbounded_Priority_Queue 
package: 


Name 

Type 

1 

Range 

|  Description 

1 

Nodes 

record 

1 

1 

N/A 

|  A  single  entity  in  the  queue;  contains  | 

data  and  a  pointer  to  the  next  node 

Pointers 

access 

1 

N/A 

|  Points  to  a  node  in  the  queue 

Queues 

record 

1 

N/A 

|  Record  containing  the  value  of 

1  length,  head,  and  tail  of  the 

the  current 
queue 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
elsewhere  in  the  package  specification  of  Abstract_Data_Structures.Unbounded_- 
Priority_Queue: 


CAMP  Software  Detailed  Design  Document 


Page  1826 


|  Name  |  Description  ' 

|  Queue_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 

j  j  retrieve  elements  from  an  empty  queue 

j  Queue  Not_  j  Indicates  an  attempt  was  made  to  use  an  uninitialized  queue  j 

j  Initialized  j  j 


3.3.7.1.9.6.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  When/Why  Raised 


|  Queue_Empty  |  Raised  if  an  attempt  is  made  to  look  at  or  | 
j  j  retrieve  from  an  empty  queue  j 
j  Queue_Not_Initialized  |  Raised  if  an  attempt  is  made  to  manipulate  an  j 
j  j  uninitialized  queue  j 


3.3.7.1.9.6.10.6  PEEK  UNIT  DESIGN 

This  function  returns  the  value  of  the  first  element  in  the  queue,  but  does  not 
change  the  state  of  the  queue  (i.e.,  the  node  is  not  actually  removed  from  the 
queue) . 

The  Queue_Empty  exception  is  raised  if  this  routine  is  called  with  an  empty 
queue. 

The  Queue  Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  queue. 


3.3.7.1.9.6.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 


3.3.7.1.9.6.10.6.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.6.10.6.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


CAMP  Software  Detailed  Design  Document 


Page  1827 


|  Name 

1  Type 

|  Mode  |  Description  | 

|  Queue 

|  Queues 

1 

|  in  out  |  Unbounded  priority  queue  being  1 

j  j  manipulated  j 

3.3.7.1.9.6.10.6.4  LOCAL  DATA 
None. 


3.3.7.1.9.6.10.6.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.6.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Peek  (Queue  :  in  Queues)  return  Elements  is 


— declaration  section 


CurrentLength  :  INTEGER  renames  Queue. Current_Length; 
Head  :  Pointers  renames  Queue. Head; 


—  — begin  function  Peek 


begin 

— make  sure  something  is  there  to  look  at 
if  Current_Length  -  -1  then 
raise  Queue  Not_Initialized; 
elsif  CurrentEength  -  0  then 
raise  Queue_Empty; 
end  if; 

return  Head. Next. Data; 
end  Peek  ; 


3.3.7.1.9.6.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 
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Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  private  portion  of  the  Abstract_Data_Structures.Unbounded_Priority_Queue 
package: 


Name 

1  Type 

I  Rang 

Nodes 

record 

N/A 

Pointers 

access 

N/A 

Queues 

record 

N/A 

A  single  entity  in  the  queue;  contains 
data  and  a  pointer  to  the  next  node 
Points  to  a  node  in  the  queue 
Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  queue 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
elsewhere  in  the  package  specification  of  Abstract_Data_Structures.Unbounded_- 
Priority_Queue: 


|  Name  |  Description 


|  QueueEmpty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
j  j  retrieve  elements  from  an  empty  queue  j 
j  Queue  Not  j  Indicates  an  attempt  was  made  to  use  an  uninitialized  queue  j 
[  Initialized  j  ! 


3.3.7.1.9.6.10.6.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

Vhen/Vhy  Raised  | 

|  Queue  Empty 

! 

|  Queue  Not  Initialized 

1  "  " 

Raised  if  an  attempt  is  made  to  look  at  or 
retrieve  from  an  empty  queue  j 

Raised  if  an  attempt  is  made  to  manipulate  an  j 

uninitialized  queue  j 

3.3.7.1.9.6.10.7  QUEUE_STATUS  UNIT  DESIGN 

This  function  returns  the  status  of  the  queue  based  on  the  following  algorithm: 

if  the  queue  has  not  been  initialized  then  queue  status  is  uninitialized  elsif 
no  elements  are  in  the  queue  then  queue  status  is  empty  else  queue  status  is 
available  end  if; 


« 
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3.3.7.1.9.6.10.7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 

3.3.7.1.9.6.10.7.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.6.10.7.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode  |  Description  | 

|  Queue 

1 

|  Queues 

1 

|  in  out  |  Unbounded  priority  queue  being 
j  j  manipulated  j 

3.3.7.1.9.6.10.7.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Status 

QueueStatuses 

N/A 

|  Status  of  the  queue  | 

3.3.7.1.9.6.10.7.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.6.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Queue_Status  (Queue  :  in  Queues)  return  Queue_Statuses  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current_Length; 
Status  :  Queue_Statuses; 


—  — begin  function  Queue_Status 
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begin 

if  Current_Length  =  -1  then 
Status  :  =  Uninitialized; 
elsif  Current_Length  =  0  then 
Status  :  =  Empty; 
else 

Status  Available; 
end  if; 

return  Status; 
end  Queue  Status  ; 


3.3.7.1.9.6.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.Unbounded_Priority_- 
Queue: 


|  Name 

1  Type  | 

Range 

|  Description  | 

|  Queue  j 

|  discrete  | 

Empty, 

|  Used  to  indicate  the  status  of  the 

j  Statuses 

1  type 

Available, 

queue 

1 

1  4  1 

Uninitialized 

1 

3.3.7.1.9.6.10.7.8  LIMITATIONS 


None. 


3.3.7.1.9.6.10.8  QUEUELENGTH  UNIT  DESIGN 
This  function  returns  the  length  of  a  queue. 

The  Queue  Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
unini tiallzed'queue. 


3.3.7.1.9.6.10.8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 
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3.3.7.1.9.6.10.8.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.6.10.8.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  following 

table  describes 

this 

part's  formal  parameters: 

|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Queue 

1 

|  Queues 

I  1 

in 

|  Unbounded  priority  queue  being  | 

|  manipulated 

3.3.7.1.9.6.10.8.4  LOCAL  DATA 


None. 


3.3.7.1.9.6.10.8.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.6.10.8.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Queue_Length  (Queue  :  in  Queues)  return  NATURAL  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current  Length; 


—  — begin  function  Queue_Length 


begin 

— make  sure  the  queue  has  a  length 
if  Current‘_Length  -  -1  then 
raise  Queue_Not_Initialized; 
end  if; 

return  Current  Length; 


end  Queue  Length  ; 
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3.3.7.1.9.6.10.8.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  describes  the  data  types  required  by  this  part  and  defined 
in  the  private  portion  of  the  Abstract_Data_Structures.Unbounded_Priority  Queue 
package : 


|  Name 


|  Type  |  Range  |  Description 


Nodes 

1 

1 

record 

1 

1 

N/A 

Pointers 

1 

1 

access 

1 

1 

N/A 

Queues 

1 

record 

1 

N/A 

A  single  entity  in  the  queue;  contains 
data  and  a  pointer  to  the  next  node 
Points  to  a  node  in  the  queue 
Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  queue 


Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
elsewhere  in  the  package  specification  of  Abs tract  Data  S true tures. Unbounded  - 
Priori  ty_Queue: 


|  Name 

|  Description  | 

|  Queue  Not_ 

|  Initialized 

Indicates  an  attempt  was  made  to  use  an  uninitialized  queue 

3.3.7.1.9.6.10.8.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

Vhen/Vhy  Raised  | 

|  Queue  Not  Initialized 

1  "  ” 

Raised  if  an  attempt  is  made  to  manipulate  an  | 

uninitialized  queue 

3.3.7.1.9.6.10.9  D0T_NEXT  UNIT  DESIGN 

Given  an  input  pointer  P,  this  function  returns  the  value  of  P.Next. 
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3.3.7.1.9.6.10.9.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.7.1.9.6.10.9.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.6.10.9.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  I 

|  Mode 

|  Description  | 

|  Ptr 

1 

|  Pointers  | 

1  I 

1  1° 

|  Pointer  to  the  node  whose  "next"  entry  is  to  | 

|  be  returned  | 

3.3.7.1.9.6.10.9.4  LOCAL  DATA 


None. 


3.3.7.1.9.6.10.9.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.6.10  9.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Dot_Next  (Ptr  :  in  Pointers)  return  Pointers  is 
begin 

return  Ptr. Next; 
end  Dot  Next; 


3.3.7.1.9.6.10.9.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top-level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 
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|  Name  |  Type  |  Range  |  Description 


Nodes 

1 

1 

record 

1 

1 

N/A 

Pointers 

1 

1 

access 

N/A 

Queues 

record 

1 

N/A 

A  single  entity  in  the  queue;  contains 
data  and  a  pointer  to  the  next  node 
Points  to  a  node  in  the  queue 
Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  queue 


3.3.7.1.9.6.10.9.8  LIMITATIONS 
None. 

3.3.7.1.9.6.10.10  SET_NEXT  UNIT  DESIGN 

Given  an  two  input  pointers,  P  and  Q,  this  procedure  sets  P.Next  equal  to  Q. 

3.3.7.1.9.6.10.10.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.7.1.9.6.10.10.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.6.10.10.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

Ptr 

|  Pointers 

|  in 

|  Pointer  to  the  node  whose  "next" 

|  is  to  be  modified 

entry 

Ptr  dot_Next 

|  Pointers  | 

in 

Value  to  which  Ptr. Next  is  to  be 

set 

3.3.7.1.9.6.10.10.4  LOCAL  DATA 


None. 


3.3.7.1.9.6.10.10.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.7.1.9.6.10.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr_dot_Next  :  in  Pointers)  is 

begin 

Ptr. Next  :=  Ptr_dot_Next; 
end  Set  Next; 


3.3.7.1.9.6.10.10.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top-level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


| .  Name 

Type 

Range 

Description  | 

|  Nodes 

1 

record 

N/A 

A  single  entity  in  the  queue;  contains 
data  and  a  pointer  to  the  next  node 

j  Pointers 

access 

N/A 

Points  to  a  node  in  the  queue 

j  Queues 

1 

record 

N/A 

Record  containing  the  value  of  the  current 
length,  head,  and  tail  of  the  queue 

3.3.7.1.9.6.10.10.8  LIMITATIONS 


None. 


3. 3. 7. 1.9. 7  BOUNDEDSTACK  PACKAGE  DESIGN  (CATALOG  #P335-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  last-in-first-out  stacking  operations  on  incoming  data.  The  top  of 
the  stack  always  points  to  the  last  element  added  to  the  stack  and  the  next 
element  to  be  removed.  When  top  equals  0,  the  stack  is  empty.  When  top  equals 
Stack_Size,  the  stack  is  full. 

The  decomposition  for  this  part  is  the  same  as  that  shovn  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.9. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  require  R166. 
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3. 3. 7. 1.9. 7. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 7. 1.9. 7. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified  in  the  package  specification  of  the  Abstract_Data_Structures  package: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name  | 

1  Type  | 

|  Value  | 

|  Description  | 

|  Initial  | 

POSITIVE  | 

|  N/A 

Maximum  number  of  elements  which  can 

j  StackSize  j 

1 

be  in  the  stack  at  any  given  time 

3. 3. 7. 1.9. 7. 4  LOCAL  DATA 
None. 

3. 3. 7. 1.9. 7. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 7. 1.9. 7. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  ( Abs t rac t _Da t a_s t rue t ures ) 
package  body  Bounded_Stack  is 


end  Bounded  Stack; 
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3. 3. 7. 1.9. 7. 7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  data  types  were  previously  defined  in  this  part's  package 
specification: 


1 

Name 

1  Type 

Range 

Description  | 

1 

Stack 

|  POSITIVE 

1  .. 

Used  to  dimension  the  list  of 

Lenglh 

|  subtype 

Stack  Size 

elements 

1 

Range 

1 

Stacks 

|  limited 

N/A 

List  of  data  along  with  relevant 

1 

j  private 

information 

1 

Stack 

j  discrete 

Empty, 

Used  to  indicate  the  status  of 

1 

Statuses 

type 

Available, 

the  stack 

1 

1 

Full 

The  following  data  types  were  previously  defined  in  the  private  part  of  this 
part's  package  specification: 


Name 


Type 


Range  |  Description 


1 

Stack_ 

Stack_ 

1  1  •• 

|  Used  to  dimension  the  list  of 

1 

Dimensions 

Dimensions 

j  'LAST 

j  elements 

1 

Range 

subtype 

1 

1 

1 

Stacks 

record 

j  N/A 

1 

j  List  of  data  along  with  relevant 
|  information 

Data  objects: 

The  following  data  objects  were  previously  defined  in  this  part's  package 
specification: 


|  Name 

1  Type 

Value 

|  Description  | 

I  Stack 

|  POSITIVE 

Initial 

|  Number  of  elements  in  the  stack  | 

1  1 

j  Size 

1 

Stack_Size 

Exceptions: 

The  following  exceptions  were  previously  defined  in  this  part's  package 
specification: 
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|  Name  |  Description  | 


|  StackEmpty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
j  retrieve  elements  from  an  empty  stack 
j  StackFull  j  Error  condition  raised  if  an  attempt  is  made  to  add  elements  j 
|  to  a  full  stack  j 


3. 3. 7. 1.9. 7. 8  LIMITATIONS 
None. 

3. 3. 7. 1.9. 7. 9  LLCSC  DESIGN 
None. 

3.3.7.1.9.7.10  UNIT  DESIGN 

3.3.7.1.9.7.10.1  CLEAR_STACK  UNIT  DESIGN 

This  procedure  clears  a  stack  by  setting  the  top  to  0. 

3.3.7.1.9.7.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R166. 

3.3.7.1.9.7.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.7.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Bounded  stack  being  manipulated  | 

3.3.7.1.9.7.10.1.4  LOCAL  DATA 


None. 
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3.3.7.1.9.7.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.7.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Clear_Stack  (Stack.  :  out  Stacks)  is 
begin 

Stack. Top  0; 
end  Clear  Stack  ; 


3.3.7.1.9.7.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Abstract_Data_Structures.Bounded_Stack 
package: 


|  Name 

1  Type 

Range 

|  Description  | 

|  Stack 

|  POSITIVE 

1  .. 

|  Used  to  dimension  the  list  of 

Length 

|  subtype 

Stack  Size 

j  elements 

j  Range 

1 

1 

The  following  data  types  were  previously  defined  in  the  private  part  of  this 

part's  package  specification: 

|  Name 

1  Type 

|  Range 

|  Description  | 

|  Stacks 

|  record 

|  N/A 

|  List  of  data  along  with  relevant  | 

1 

1 

1 

j  information  > 

3.3.7.1.9.7.10.1.8  LIMITATIONS 


None. 
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3.3.7.1.9.7.10.2  ADD_ELEMENT  UNIT  DESIGN 

This  procedure  adds  an  element  to  the  top  of  the  stack. 

A  Stack  Full  exception  is  raised  if  this  routine  is  called  with  a  full  stack. 


3.3.7.1.9.7.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R166. 


3.3.7.1.9.7.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.7.1.9.7.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type 

Mode 

Description  | 

|  NevElement  | 
j  Stack  j 

Elements 

Stacks 

in 

in  out 

Element  to  be  added  to  the  stack 

Bounded  stack  being  manipulated 

3.3.7.1.9.7.10.2 

.4  LOCAL 

• 

DATA 

None. 


3.3.7.1.9.7.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.7.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Add_Element  (New_Element  :  in  Elements; 

Stack  :  in  out  Stacks)  is 


— declaration  section 


List  :  Lists  renames  Stack. List; 

Top  :  Stack_Length_Range  renames  Stack. Top; 


—  — begin  procedure  Add_Element 
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begin 

— make  sure  the  stack  is  not  already  full 
if  Top  =  Stack_Size  then 
raise  Stack_Full; 
end  if; 

— add  element  to  the  stack 
Top  :-  Top  +  1; 

List(Top)  :=  Nev_Element; 

end  Add  Element  ; 


3.3.7.1.9.7.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract  Data  Structures.Bounded  Stack 
package: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Abstract_Data_Structures.Bounded_Stack 
package: 


|  Name 

Type 

Range 

|  Description  | 

|  Stack_ 
Length_ 

|  Range 

POSITIVE 

subtype 

1  .. 

Stack_Size 

|  Used  to  dimension  the  list  of 
elements 

1 

The  following  data  types  were  previously  defined  in  the  private  part  of  this 
part's  package  specification: 

|  Name 

Type 

Range 

Description  | 

Lists 

Stacks 

array 

record 

N/A 

N/A 

List  of  elements 

List  of  data  along  vith  relevant 
information 
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Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Bounded_Stack  package: 


|  Name 

1  Type 

Value 

Description  | 

|  Stack 
j  Size 

|  POSITIVE 

1 

Initial_ 

Stack_Size 

Number  of  elements  in  the  stack 

1 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Bounded  Stack 
package : 


|  Name  |  Description 


|  Stack_Full  |  Error  condition  raised  if  an  attempt  is  made  to  add  elements 
i  to  a  full  stack 


3.3.7.1.9.7.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  |  Vhen/Vhy  Raised  | 

|  Stack_Full  |  Raised  if  an  attempt  is  made  to  add  elements  to  a  full  stack  | 


3.3.7.1.9.7.10.3  RETRIEVEJBLEMENT  UNIT  DESIGN 

This  procedure  retrieves  the  top  element  from  the  stack  and  returns  it  to  the 
calling  routine. 

A  Stack_Empty  exception  is  raised  if  this  routine  is  called  with  an  empty 
stack. 


3.3.7.1.9.7.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R166. 


3.3.7.1.9.7.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.7.1.9.7.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  | 

Type  j 

|  Mode 

|  Description  | 

|  Stack  | 

j  Old  Element  j 

Stacks 

Elements 

in  out 
out 

|  Bounded  stack  being  manipulated  | 

|  Element  retrieved  from  the  stack  j 

3.3.7.1.9.7.10. 

3.4  LOCAL 

DATA 

None. 


3.3.7.1.9.7.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.7.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part:  • 

procedure  RetrieveElement  (Stack  :  in  out  Stacks; 

Old  Element  :  out  Elements)  is 


— declaration  section 


List  :  Lists  renames  Stack. List; 

Top  :  Stack_Length_Range  renames  Stack. Top; 


—  — begin  procedure  RetrievejElement 


begin 

— make  sure  there  is  something  in  the  stack  to  retrieve 
if  Top  ■  0  then 

raise  Stack_Empty; 
end  if; 

— retrieve  and  remove  the  top  element  from  the  stack 
01d_Element  :=  List(Top); 

Top  :=  Top  -  1; 


end  Retrieve  Element  ; 
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3.3.7.1.9.7.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract_Data_Structures.Bounded_Stack 
package : 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Abs tract_Data_St rue tures . Bounded_S tack 
package : 


|  Name 

Type 

Range 

Description  | 

|  Stack 

POSITIVE 

1  .. 

Used  to  dimension  the  list  of 

|  Length 

subtype 

Stack  Size 

elements 

j  Range 

The  following  data  types  were  previously  defined  in  the  private  part  of  this 
part's  package  specification: 


|  Name 

Type 

|  Range 

Description  | 

Lists 

array 

|  N/A 

List  of  elements 

Stacks 

record 

j  N/A 

List  of  data  along  with  relevant 

1 

information 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Bounded_Stack  package: 


|  Name 

1  Type 

Value 

Description  | 

|  Stack_ 
j  Size 

|  POSITIVE 

1 

Initial_ 

Stack_Size 

Number  of  elements  in  the  stack  i 

1 

Exceptions: 
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The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Bounded_Stack 
package: 


|  Name  |  Description  | 


|  StackEmpty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
|  j  retrieve  elements  from  an  empty  stack  j 


3.3.7.1.9.7.10.3.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 

|  Name  |  When/Why  Raised  | 

|  Stack_Empty  |  Raised  if  an  attempt  is  made  to  look  at  or  retrieve  elements  | 
I  j  from  an  empty  stack  j 


3.3.7.1.9.7.10.4  PEEK  UNIT  DESIGN 

This  function  returns  the  data  in  the  top  element  of  the  stack,  but  does  not 
remove  the  element  from  the  stack. 

A  Stack  Empty  exception  is  raised  if  this  routine  is  called  with  an  empty 
stack. 


3.3.7.1.9.7.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R166. 

3.3.7.1.9.7.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.7.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

I  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Bounded  stack  being  manipulated  | 
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3.3.7.1.9.7.10.4.4  LOCAL  DATA 


None. 


3.3.7.1.9.7.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.7.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Peek  (Stack  :  in  Stacks)  return  Elements  is 


— declaration  section 


List  :  Lists  renames  Stack. List; 

Top  :  Stack_Length_Range  renames  Stack. Top; 


- begin  function  Peek 


begin 

— make  sure  there  is  something  in  the  stack 
if  Top  -  0  then 

raise  StackEmpty; 
end  if; 

— return  value  in  top  element  of  the  stack 
return  List(Top); 

end  Peek  ; 


3.3.7.1.9.7.10.4.7  UTILIZATION  OP  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract_Data_Structures.Bounded_Stack 
package: 
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|  Name 

Type 

Description  i 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Abstract_Data_Structures.Bounded_Stack 
package: 


|  Name 

1  Type 

|  Range 

|  Description 

1 

;  Stack_ 

|  Length_ 
j  Range 

|  POSITIVE 
j  subtype 

1 

1  1  •• 

|  Stack  Size 

1 

|  Used  to  dimension  the 
j  elements 

1 

list  of  | 

1 

1 

The  following  data  types  were  previously  defined  in  the  private 
part's  package  specification: 

part  of  this 

|  Name 

1  Type 

I  Range  | 

Description 

1 

|  Lists 
j  Stacks 

1 

|  array 
j  record 

I 

1  n/a  | 

|  N/A  j 

1  1 

List  of  elements 

List  of  data  along  with 
information 

relevant 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data  Structures.  Bounded_Stack  package: 


|  Name 

1  Type 

Value 

Description 

1 

|  Stack_ 
j  Size 

|  POSITIVE 

1 

Initial_ 

Stack_Size 

Number  of  elements  in  the  stack 

1 

1 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Bounded_Stack 
package: 


|  Name  |  Description 

|  Stack  Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
i  j  retrieve  elements  from  an  empty  stack 
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3.3.7.1.9.7.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  parts 

|  Name  |  When/Why  Raised  | 

|  StackEmpty  |  Raised  if  an  attempt  is  made  to  look  at  or  retrieve  elements  | 
|  j  from  an  empty  stack 


3.3.7.1.9.7.10.5  STACK_STATUS  UNIT  DESIGN 

This  function  returns  the  status  of  the  stack  based  on  the  following  algorithm: 

if  no  elements  are  in  the  stack  then  stack  status  is  empty  elsif  the  maximum 
number  of  elements  are  in  the  stack  then  stack  status  is  full  else  stack  status 
is  available  end  if 

3.3.7.1.9.7.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R166. 

3.3.7.1.9.7.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.7.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type 

Mode  | 

Description  | 

|  Stack  |  Stacks 

in  out  | 

Bounded  stack  being  manipulated  | 

3.3.7.1.9.7.10.5.4  LOCAL 

Data  objects: 

DATA 

The  following  table  describes  the  data  objects  maintained  by  this  part: 

|  Name  |  Type 

|  Value 

|  Description  | 

|  Status  |  Stack_Statuses 

|  N/A 

|  Status  of  the  stack  | 
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3.3.7.1.9.7.10.5.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.7.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Stack  Status  (Stack  :  in  Stacks)  return  Stack  Statuses  is 


— declaration  section 


Top  :  Stack_Length_Range  renames  Stack. Top; 
Status  :  Stack  Statuses; 


—  — begin  function  Stack_Status 


begin 

if  Top  ■  0  then 
Status  :-  Empty; 
elsif  Top  -  Stack_Size  then 
Status  :-  Full; 
else 

Status  :-  Available; 
end  if; 

return  Status; 
end  Stack  Status  ; 


3.3.7.1.9.7.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Abstract_Data_Structures.Bounded_Stack 
package : 
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c 


1 

Name 

1  Type 

Range 

|  Description 

1 

1 

Stack 

|  POSITIVE 

1  .. 

|  Used  to  dimension  the  list  of 

1 

Length 

|  subtype 

Stack  Size 

j  elements 

Range 

1 

1 

1 

1 

Stack 

|  discrete 

Empty, 

i  Used  to  indicate  the  status  of 

1 

1 

Statuses 

1  type 

Available, 

|  the  stack 

1 

1 

1 

Full 

1 

1 

The  following  data  types  were  previously  defined  in  the  private  part  of  this 
part's  package  specification: 


|  Name 

1  Type 

j  Range 

|  Description  | 

|  Stacks 

1 

|  record 

1 

|  N/A 

1 

|  List  of  data  along  with  relevant  | 

;  information  j 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Bounded_Stack  package: 


|  Name 

1  Type 

Value  | 

Description  | 

|  Stack_ 
j  Size 

|  POSITIVE 

1 

Initial_  | 

Stack_Size  | 

Number  of  elements  in  the  stack  | 

1 

3.3.7.1.9.7.10.5.8  LIMITATIONS 


None. 


3.3.7.1.9.7.10.6  STACK_LENGTH  UNIT  DESIGN 
This  function  returns  the  length  of  the  stack. 


3.3.7.1.9.7.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R166. 


3.3.7.1.9.7.10.6.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.7.1.9.7.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Bounded  stack  being  manipulated  | 

3.3.7.1.9.7.10.6.4  LOCAL  DATA 
None. 

3.3.7.1.9.7.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.7.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  StackLength  (Stack  :  in  Stacks)  return  Stack_Length_Range  is 
begin 

return  Stack. Top; 
end  Stack_Length  ; 

3.3.7.1.9.7.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  Abstract_Data_Structures.Bounded_Stack 
package : 


:  Name 

1  Type 

Range 

|  Description  | 

|  Stack 

|  POSITIVE 

1  .. 

|  Used  to  dimension  the  list  of 

|  Length 

j  subtype 

Stack  Size 

elements 

j  Range 

1 

1 
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The  following  data  types  were  previously  defined  in  the  private  part  of  this 
part's  package  specification: 


|  Name 

1  Type 

|  Range 

|  Description  | 

|  Stacks 

1 

|  record 

1 

|  N/A 

1 

|  List  of  data  along  with  relevant  | 

|  information  j 

3.3.7.1.9.7.10.6.8  LIMITATIONS 


None. 


3. 3. 7. 1.9. 8  UNBOUNDEDSTACK  PACKAGE  DESIGN  (CATALOG  #P336-0) 

This  generic  package  performs  last-in-first-out  stacking  operations  on  incoming 
data.  The  head  of  the  stack  always  points  to  the  last  element  added  to  the 
stack  and  the  next  element  to  be  removed.  The  tail  always  points  to  a  dummy 
node  located  below  the  oldest  element  on  the  stack.  If  head  and  tail  point  to 
the  same  node,  the  stack  is  empty. 

An  available  space  list  is  maintained  local  to  this  part.  When  this  part  is 
elaborated  the  available  space  list  will  have  a  dummy  node  plus  Initial- 
Available  Space  Size  nodes.  When  .nodes  are  added  to  the  stack,  the  Add_Element 
routine  will  try  to  get  a  node  from  the  available  space  list  before  attempting 
to  allocate  more  memory.  When  the  Retrieve  Element  routine  is  called,  the 
unused  node  will  be  returned  to  the  available  space  list  for  later  use.  The 
memory  committed  to  the  available  space  may  be  deallocated  by  calling  the 
Free_Memory  procedure. 

The  decomposition  for  this  part  is  the  same  as  that  shovn  in  the  Top-Level 
Design  Document. 


3. 3. 7. 1.9. 8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 


3.3.7. 1.9. 8. 2  LOCAL  ENTITIES  DESIGN 
Data  structures: 

This  part  maintains  an  available  space  list  local  to  the  package  body. 
Subprograms: 

The  following  subprograms  are  contained  local  to  this  body: 
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|  Name  |  Type  |  Description 


Free  Node 

|  procedure 

1 

Instantiation  of  UNCHECKED  DEALLOCATION 

Dot  Next 

|  function 

1 

Given  a  pointer  P,  this  function  returns 

1 

1 

the  value  of  P.Next 

Set  Next 

|  procedure 

Given  two  points  P  &  Q,  this  procedure 

1 

1 

sets  P.Next  =  Q 

The  following  subprograms  are  contained  in  this  part  as  a  result  of  renaming 
operations  on  identically  named  routines  contained  in  the  locally  instantiated 
Avai lable_Space_Opera t ions  package . 


|  Name  |  Type  |  Description 


New  Node 


function 


Save_Node  |  procedure 
Save_List  j  procedure 


Returns  a  node  to  the  calling  routine;  will  get  a 
node  from  the  available  space  list  if  possible, 
otherwise  will  allocate  a  new  node 
Handles  placing  a  node  in  the  available  space  list 
Handles  placing  a  list  of  nodes  in  the  available 
space  list 


This  package  body  contains  code  to  initialize  the  AvailabieSpace  List.  This 
code  is  executed  when  the  package  is  elaborated.  At  a  minimum,  tKis  code  calls 
the  Initialize  procedure  to  initialize  the  Available_Space  List  so  it  contains 
a  dummy  node.  If  the  generic  formal  object  Initial_Availal>le_Space_Size  is 
greater  than  or  equal  to  1,  this  routine  then  places  the  requested  number  of 
nodes  (in  addition  to  the  dummy  node)  in  the  available  space  list. 


3. 3. 7. 1.9. 8. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified  in  the  package  specification  of  the  Abstract_Data_Structures  package: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 
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|  Name 

1  Type 

|  Description 

I 

|  Initial  Available_ 
j  SpaceSize 

|  NATURAL 

1 

|  Number  of  nodes  to  be 
|  the  available  space 

initially  placed  in  | 
list  ’ 

3. 3. 7. 1.9. 8. 4  LOCAL  DATA 


None. 


3.3.7. 1.9. 8. 5  PROCESS  CONTROL 


Not  applicable. 


3.3.7. 1.9. 8. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

wi  th  UNCHECKEDDEALLOCATION ; 
separate  (Abstract_Data_Structures) 
package  body  UnboundedStack  is 

—  — declaration  section 


—  — this  pointer  is  accessed  ONLY  vhen  setting  up  the  Available_Space 
Initial_Head  :  Pointers  :«  new  Nodes; 

Available_Space  :  Stacks  :*  (Current_Length  »>  0, 

Top  ->  InitialHead, 

Bottom  ->  Initial_Head) ; 

Available_Length  :  INTEGER  renames  Available_Space.Current_Length; 
Available_Top  :  Pointers  renames  Aval lable_Space. Top; 
Available_Bottom  :  Pointers  renames  Available_Space. Bottom; 

procedure  Free  is  new  UNCHECKED_DEALL0CATI0N 

(Object  «>  Nodes, 

Name  ->  Pointers); 

procedure  Free_Node  (Which_Node  :  in  out  Pointers) 
renames  Free; 

function  Dot_Next  (Ptr  :  in  Pointers)  return  Pointers; 

procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr_dot_Next  :  in  Pointers); 

package  Available_Space_Operations  is  new 
Available~Space[[List_Operations 

(Nodes-  *>  Nodes, 

Pointers  =>  Pointers, 
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Available_Length  =>  Available_Length, 

Available_Head  =>  Available_Top, 

AvailableJTail  =>  Available_Bottom) ; 

function  NevNode  return  Pointers 

renames  Available_Space_Operations.New  Node; 

procedure  Save_Node  (Saved_Node  :  in  Pointers) 

renames  Available_Space_Operations.Save_Node; 

procedure  Save_List  (Saved_Head  :  in  Pointers; 

Saved  Tail  :  in  Pointers; 

Node_Count  :  in  POSITIVE) 

renames  Available_Space_Operations.Save_List; 


— begin  package  Unbounded_Stack 
— (see  header  for  package  body  for  details) 


begin 

—  — set  up  available  space  list  if  one  is  desired 
if  Initial_Available_Space_Size  >  0  then 

Add  Nodes  to  AvailableSpaceList : 

Tor  I  In  T.  .InitialAvailable  SpaceSize  loop 
AvailableBottom.Next  :»  NEV  Nodes; 
AvailableBottom  :-  Available_Bot tom. Next ; 

end  loop  Add_Nodes_to_Available_Space_List; 

Available_Length  :-  Initial_Available_Space_Size; 

end  if; 

end  Unbounded  Stack; 


3. 3. 7. 1.9.8. 7  UTILIZATION  OF  OTHER  ELEMENTS 
Subprograms  and  task  entries: 

The  following  table  describes  the  subroutines  required  by  this  part: 


|  Name 

Type 

Source 

f  Description  | 

|  UNCHECKED 
j  DEALLOCATION 

generic 

function 

N/A 

|  Used  to  deallocate  memory  1 

1  1 

Exceptions: 

The  following  table  describes  the  exceptions  required  by  this  part  and  defined 
in  the  Ada  predefined  package  STANDARD: 
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|  Name 

Description  | 

|  STORAGE  ERROR 

1 

Raised  when  an  attempt  is  made  to  dynamically  allocate  | 

more  memory  than  is  available  j 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Packages : 

The  following  table  describes  the  packages  required  by  this  part  and  specified 
in  the  package  body  of  the  Abstract_Data_Structures  package: 


|  Name  | 

1  Type  | 

Description  | 

Available  Space 

generic  | 

Contains  the  routines  required  to  retrieve 

List  Operations  j 

package  | 

a  node  from  and  place  a  node  in  the 

1 

1 

available  space  list 

Data  types: 

The  following  data  types  were  previously  defined  in  this  part's  package 
specification: 


|  Name 

Type 

Range 

|  Description  | 

|  Stack 

discrete 

Empty, 

|  Indicates  the  current  status  of 

Statuses 

type 

Available 

the  stack 

1 

Uninitialized  j  | 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data_Structures.Unbounded_Stack  package: 


Name 


Type 


Range 


Description 


|  Nodes 

| 

record 

N/A 

1 

|  Pointers 

access 

N/A 

j  Stacks 

1 

record 

N/A 

Contains  a  single  element  and  a  pointer 
to  another  node 
Points  to  &  node 

List  of  data  along  with  relevant 
information 


Exceptions: 

The  following  exceptions  were  previously  defined  in  this  part's  package 
specification: 
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;  Name  |  Description 


|  Stack_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
j  j  retrieve  elements  from  an  empty  stack 

j  Stack  Not_  j  Raised  if  an  attempt  is  made  to  use  an  uninitialized  stack  j 
j  Initialized  |  j 


3.3.7. 1.9. 8. 8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  When/Why  Raised 


|  STANDARD. STORAGE  ERROR  |  Raised  during  elaboration  of  this  package  if  an  | 
j  j  attempt  is  made  to  allocate  memory  when  no  more  j 
|  j  is  available  j 


3.3.7. 1.9. 8. 9  LLCSC  DESIGN 
None. 


3.3.7.1.9.8.10  UNIT  DESIGN 

3.3.7.1.9.8.10.1  INITIALIZE  UNIT  DESIGN 

This  procedure  initializes  a  stack  by  placing  a  dummy  node  in  the  stack, 
pointing  the  top  and  bottom  to  the  dummy  node,  and  setting  the  length  to  0.  If 
this  routine  is  called  with  a  stack  containing  elements,  then  the  stack  is 
cleared  of  all  but  the  dummy  node. 


3.3.7.1.9.8.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 


3.3.7.1.9.8.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.8.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

1  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Stack  being  manipulated  | 

3.3.7.1.9.8.10.1.4  LOCAL  DATA 
None. 


3.3.7.1.9.8.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.8.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Initialize  (Stack  :  in  out  Stacks)  is 


— declaration  section 


CutrentLength  :  INTEGER  renames  Stack. CurrentLength; 
Top  :  Pointers  renames  Stack. Top; 

Bottom  :  Pointers  renames  Stack. Bottom; 


__  — begin  procedure  Initialize 


begin 

if  Current_Length  •  -1  then 

— handle  an  uninitialized  stack 
Top  : ■  Nev_Node ; 

Bottom  :«  Top; 

Current_Length  :«  0; 

elsif  CurrentJLength  >  0  then 

— handle  a  stack  that  has  elements  in  it 
Clear_Stack  (Stack  ->  Stack); 

else 

— current  length  =  0,  so  do  nothing 
NULL; 


end  if; 

end  Initialize  ; 
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3.3.7.1.9.8.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  required  by  this  part  and 
defined  in  the  package  specification  of  Abstract_Data_Structures.Unbounded_- 
Stack: 


|  Nam'e  | 

1  Type  | 

|  Description  | 

|  Clear  Stack  { 
1  ~  1 

procedure 

Clears  a  stack  by  returning  all  of  its  nodes  to  | 
j  the  available  space  list  j 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Abstract_Data_- 
Structures. Unbounded  Stack: 


|  Name 

1  Type 

|  Description  | 

|  New  Node  | 

function 

Returns  a  node  to  the  calling  routine;  will  get  a 

!  “  1 

node  from  the  available  space  list  if  possible, 

1  1 

otherwise  will  allocate  a  nev  node 

Data  types: 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs  t rac  t_Da ta_S t rue tures .  Unbounded_S  t ack  package : 


|  Name 

! 

Type 

|  Rai 

|  Nodes 

i 

T 

i 

record 

|  N/A 
j 

|  Pointers 

access 

|  N/A 

Stacks 

i 

record 

1  N/A 

|  Range  |  Description 


Contains  a  single  element  and  a  pointer 
to  another  node 
Points  to  a  node 
List  of  data  along  with  relevant 
information 


3.3.7.1.9.8.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 

|  When/Why  Raised  | 

|  STANDARD. STORAGE  ERROR 

1 

|  Raised  if  an  attempt  is  made  to  allocate  more  j 

(  memory  than  is  available  | 

3.3.7.1.9.8.10.2  CLEAR_STACK  UNIT  DESIGN 

This  procedure  removes  nodes  from  a  stack,  leaving  only  the  dummy  node.  The 
nodes  removed  are  placed  in  the  available  space  list. 

A  Stack_Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  stack. 


3.3.7.1.9.8.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 


3.3.7.1.9.8.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.8.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Stack  being  manipulated  | 

3.3.7.1.9.8.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  This  Node 

1 

Pointers 

N/A 

|  Points  to  the  node  to  be  placed  in  the  | 

|  available  space  list  j 
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3.3.7.1.9.8.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.8.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Clear_Stack  (Stack  :  in  out  Stacks)  is 


— declaration  section 


Current_Length  :  INTEGER  renames  Stack. Current_Length; 

Top  :  Pointers  renames  Stack. Top; 

Bottom  :  Pointers  renames  Stack. Bottom; 

This  Node  :  Pointers; 


—  — begin  procedure  Clear_Stack 


begin 

—make  sure  stack  has  been  initialized 
if  Current_Length  -  -1  then 

raise  Stack_Not_Initialized; 

— make  sure  there  is  something  in  the  stack 
els if  Current_Length  /-  0  then 

— placed  nodes  in  the  available  space  list 
Save_List  (Saved_Head  ->  Top. Next, 
Saved_Tail  *>  Bottom, 

Node_Count  *>  Current_Length) ; 

— reinitialize  stack  variables 
Top. Next  :-  NULL; 

Bottom  :«  Top; 

Current_Length  0; 

end  if; 

end  Clear  Stack  ; 


3.3.7.1.9.8.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 


CAMP  Software  Detailed  Design  Document 


Page  1862 


Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Abstract_Data_- 
Structures. Unbounded  Stack: 


|  Name 

1  Type 

|  Description  | 

|  Save  List 

1  1 

|  procedure 

1 

|  Handles  placing  a  list  of  nodes  in  the  available  | 

|  space  list  j 

Data  types: 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs  t rac t_Da ta_S t rue  t ures .  Unbounded_S  tack  package : 


Name 

Type 

|  Range 

Description  | 

Nodes 

record 

|  N/A 

Contains  a  single  element  and  a  pointer 

1 

to  another  node 

Pointers 

access 

j  N/A 

Points  to  a  node 

Stacks 

record 

j  N/A 

List  of  data  along  with  relevant 

1 

information 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Unbounded  Stack: 


|  Name 

|  Description  | 

|  Stack  Not_ 

!  Initialized 

|  Raised  if  an  attempt  is  made  to  use  an  uninitialized  stack  | 

1  1 

3.3.7.1.9.8.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  When/Vhy  Raised  | 

|  Stack  Not  Initialized 

1  "  " 

|  Raised  if  an  attempt  is  made  to  manipulate  an 
j  uninitialized  stack 
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3.3.7.1.9.8.10.3  FREE_MEMORY  UNIT  DESIGN 

This  procedure  deallocates  the  memory  occupied  by  the  nodes  in  the  available 
space  list.  Only  a  dummy  node  will  be  left  in  the  list. 

3.3.7.1.9.8.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 

3.3.7.1.9.8.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.8.10.3.3  INPUT/OUTPUT 
None. 

3.3.7.1.9.8.10.3.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  | 

1  Type 

|  Value 

|  Description  | 

|  This_Node  | 

I  Pointers 

|  N/A 

|  Points  to  the  node  to  be  deallocated  | 

3.3.7.1.9.8.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.8.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Free_Memory  is 

— declaration  section 

This_Node  :  Pointers; 

—  — begin  procedure  Free_Memory 


begin 
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Deallocate_Nodes  in_Available_Space_List  s 

while  AvailabTe_Top  /=  Available_Bottom  loop 

This  Node  :=  Available_Top; 

AvaiIable_Top  :=  Available  Top. Next; 

Free_Node  (Which_Node  =>  TKis_Node); 

end  loop  Deallccate_Nodes_in_Available_Space_List; 

Available_Length  :=  0; 

Aval lable_Top. Next  :*  NULL; 

end  Free_Memory  ; 


3.3.7.1.9.8.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Abstract_Data_- 
Structures. Unbounded  Stack: 


|  Name  | 

1  Type 

|  Description  | 

|  Free_Node  | 

|  procedure  | 

|  Instantiation  of  UNCHECKED_DEALLOCATI ON  | 

Data  types: 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs  tract_Data_Struc tures . Unbounded_S tack  package : 


Name 

1 

Type 

|  Range 

|  Description 

1 

Nodes 

1 

1 

record 

|  N/A 

1 

|  Contains  a  single  element  and  a  pointer 
j  to  another  node 

1 

1 

Pointers 

1 

access 

|  N/A 

j  Points  to  a  node 

1 

Stacks 

1 

record 

j  N/A 

1 

j  List  of  data  along  with  relevant 
j  information 

1 

1 

3.3.7.1.9.8.10.3.8  LIMITATIONS 


None. 
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3.3.7.1.9.8.10.4  ADD_ELEMENT  UNIT  DESIGN 

This  procedure  adds  an  element  to  the  top  of  the  stack. 

A  Stack_Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  stack. 


3.3.7.1.9.8.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 


3.3.7.1.9.8.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.8.10.4.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

|  New  Element 

|  Elements 

in 

|  Element  to  be  added  to  the  stack 

j  Stack 

|  Stacks 

in  out 

j  Stack  being  manipulated 

3.3.7.1.9.8.10 

.4.4  LOCAL 

DATA 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Ptr 

1 

|  Pointers 

1 

|  N/A 

1 

|  Points  to  the  new  node  to  be  placed  in  the 
|  stack  I 

3.3.7.1.9.8.10.4.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.9.8.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Add  Element  (New_Element  :  in  Elements; 

Stack  :  in  out  Stacks)  is 
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— declaration  section 


Current_Length  :  INTEGER  renames  Stack. Current_Length; 
Top  :  Pointers  renames  Stack. Top; 

Ptr  :  Pointers; 


—  — begin  procedure  Add_Element 


begin 

if  Current_Length  -  -1  then 
raise  Stack_Not_Initialized; 
end  if; 

— get  a  node  and  initialize  it 
Ptr  :=  New_Node; 

Ptr. Data  Nev_Element; 

— place  the  node  on  the  stack 
Ptr. Next  Top; 

Top  :-  Ptr; 

CurrentLength  CurrentLength  +  1; 

end  Add_Element  ; 


3.3.7.1.9.8.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Abstract_Data_- 
S t rue tures. Unbounded  Stack: 


|  Name 

1  Type 

|  Description  | 

|  New  Node 

i  " 

1 

|  function 

1 

1 

|  Returns  a  node  to  the  calling  routine;  will  get  a  | 

!  node  from  the  available  space  list  if  possible,  j 

!  otherwise  will  allocate  a  new  node 

Data  types: 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract_Data_Structures.  Unbounded_Stack 
package: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract  Data  Structures. Unbounded_Stack  package: 


|  Name  |  Type  |  Range  |  Description 


Nodes 

1 

1 

record 

|  N/A 

1 

|  Contains  a  single  element  and  a  pointer 
to  another  node 

Pointers 

1 

access 

j  N/A 

|  Points  to  a  node 

Stacks 

record 

j  N/A 

1 

j  List  of  data  along  with  relevant 
information 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  AbstractDataStructures.  UnboundedStack: 


|  Name  | 

|  Description  | 

|  Stack  Not  | 

|  Raised  if  an  attempt  is  made  to  use  an  uninitialized  stack  | 

1  1 

j  Initialized 

3.3.7.1.9.8.10.4.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name  |  Vhen/Vhy  Raised 


|  STANDARD. ST0RAGE_ERR0R  |  Raised  if  an  attempt  is  made  to  allocate  more 
j  |  memory  than  is  available 

j  Stack_Not_Initialized  j  Raised  if  an  attempt  is  made  to  manipulate  an 
|  ~  j  uninitialized  stack 


3.3.7.1.9.8.10.5  RETRIEVE_ELEMENT  UNIT  DESIGN 

This  procedure  retrieves  the  top  element  of  the  stack  and  returns  the  data  in 
it  to  the  calling  routine.  The  node  is  then  placed  in  the  available  space 
list. 
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A  Stack_En.pty  exception  is  raised  if  this  routine  is  called  with  an  empty 
stack. 

A  Stack_Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  stack. 


3.3.7.1.9.8.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 

3.3.7.1.9.8.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.8.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Stack 
j  01d_Element 

|  Stacks  | 
|  Elements  | 

|  in  out 
out 

|  Stack  being  manipulated 
j  Elements  retrieved  from  the  stack 

3.3.7.1.9.8.10.5.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  This  Node 

1 

Pointers 

N/A 

|  Node  to  be  returned  to  the  available  | 

j  space  list  j 

3.3.7.1.9.8.10.5.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.8.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Retrieve_Element  (Stack  :  in  out  Stacks;  ' 

Old  Element  :  out  Elements)  is 
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— declaration  section 


Current_Length  :  INTEGER  renames  Stack. Current_Length; 
Top  :  Pointers  renames  Stack. Top; 

This  Node  :  Pointers; 


—  — begin  procedure  Retrieve  Element 


begin 

— make  sure  there  is  something  to  retrieve 
if  Current_Length  =  -1  then 
raise  Stack_Not_Initialized; 
elsif  Current  Length  «  0  then 
raise  StacIc_Empty; 
end  if; 

— retrieve  data  in  the  top  node 
01d_Element  :■  Top. Data; 

— dispose  of  top  node  and  adjust  the  stack 
ThisNode  :-  Top; 

Top  :»  Top. Next; 

Save_Node  (Saved_Node  «>  ThirNode) ; 
Current_Length  s-  Current_Length  -  1; 

end  Retrieve  Element  ; 


3.3.7.1.9.8.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Abstract_Data_- 
Structures. Unbounded  Stack: 


|  Name 

1  Type 

|  Description  | 

|  Save_Node 

procedure 

|  Handles  placing  a  node  in  the  available  space  list  | 

Data  types: 
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The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  Abstract_Data_Structures.  Unbounded_Stack 
package: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract_Data  Structures. Unbounded_Stack  package: 


|  Name  |  Type  |  Range  |  Description 


Nodes 

1 

1 

record 

|  N/A 

1 

|  Contains  a  single  element  and  a  pointer 
j  to  another  node 

Pointers 

1 

access 

j  N/A 

j  Points  to  a  node 

Stacks 

record 

|  N/A 

1 

j  List  of  data  along  with  relevant 
information 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract JData_Structures.  UnboundedStack: 


|  Name 

|  Description  | 

|  Stack  Empty 

Error  condition  raised  if  an  attempt  is  made  to  look  at  or 

1 

retrieve  elements  from  an  empty  stack 

|  Stack  Not 

Raised  if  an  attempt  is  made  to  use  an  uninitialized  stack 

j  Initialized 

3.3.7.1.9.8.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Vhen/Vhy  Raised  | 

|  Stack  Not  Initialized 

Raised  if  an  attempt  is  made  to  manipulate  an 

1 

uninitialized  stack 

|  Stack  Empty 

Raised  if  an  attempt  is  made  to  retrieve  or  look 

1 

at  elements  in  an  empty  stack 

3.3.7.1.9.8.10.6  PEEK  UNIT  DESIGN 

This  function  returns  the  data  contained  in  the  top  element  of  the  stack,  but 
does  not  remove  the  element  from  the  stack. 
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A  Stack_Empty  exception  is  raised  if  this  routine  is  called  with  an  empty 
stack. 

A  Stack_Not_Ini tialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  stack. 


3.3.7.1.9.8.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 


3.3.7.1.9.8.10.6.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.7.1.9.8.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS* 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Stack  being  manipulated  | 

3.3.7.1.9.8.10.6.4  LOCAL  DATA 
None. 

3.3.7.1.9.8.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.8.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Peek  (Stack  :  in  Stacks)  return  Elements  is 

— declaration  section 

Current_Length  :  INTEGER  renames  Stack. Current_Length; 
Top  :  Pointers  renames  Stack. Top; 


-  — begin  function  Peek 
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begin 

— make  sure  there  is  something  to  peek  at 
if  Current_Length  =  -1  then 
raise  Stack  Not  Initialized; 
els if  Current  Length  =  0  then 
raise  StacIc_Empty; 
end  if; 

— returned  desired  element 
return  Top. Data; 

end  Peek  ; 


3.3.7.1.9.8.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  as 
generic  formal  parameters  to  the  AbstractDataStructures.  Unbounded  Stack 
package: 


|  Name  |  Type  |  Description 

|  Elements  |  private  |  User  defined  type  of  data  contained  in  the  stack 


The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs tract_Data_St rue tures.Unbounded_S tack  package: 


|  Name 

Type 

|  Range 

Description  | 

Nodes 

record 

|  N/A 

Contains  a  single  element  and  a  pointer 

1 

to  another  node 

Pointers 

access 

|  N/A 

Points  to  a  node 

Stacks 

record 

j  N/A 

List  of  data  along  with  relevant 

1 

information 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data_Structures.  Unbounded_Stack: 
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|  Name  |  Description 


|  StackEmpty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
|  retrieve  elements  from  an  empty  stack  j 

j  Stack_Not_  j  Raised  if  an  attempt  is  made  to  use  an  uninitialized  stack  j 
j  Initialized  j  j 


3.3.7.1.9.8.10.6.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Vhen/Vhy  Raised  | 

|  Stack  Not  Initialized 

1 

|  Stack  Empty 

1 

|  Raised  if  an  attempt  is  made  to  manipulate  an  j 
j  uninitialized  stack  j 
j  Raised  if  an  attempt  is  made  to  retrieve  or  look  j 
'  at  elements  in  an  empty  stack  | 

3.3.7.1.9.8.10.7  STACKSTATUS  UNIT  DESIGN 

This  function  returns  the  status  of  the  stack  according  to  the  following 
algorithm: 

if  stack  has  never  been  initialized  then  stack  status  is  uninitialized  elsif 
stack  has  no  elements  in  it  then  stack  status  in  empty  else  stack  status  is 
available  end  if 


3.3.7.1.9.8.10.7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 


3.3.7.1.9.8.10.7.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.7.1.9.8.10.7.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Stack  being  manipulated  | 
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3.3.7.1.9.8.10.7.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type  | 

Value 

|  Description 

1 

|  Status 

|  Stack  Statuses  | 

N/A  | 

|  Status  of  the  stack 

1 

3. 3. 7.1. 

9.8.10.7.5  PROCESS 

CONTROL 

Not  applicable. 


3.3.7.1.9.8.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Stack_Status  (Stack  :  in  Stacks)  return  Stack_Statuses  is 

— declaration  section 

CurrentLength  :  INTEGER  renames  Stack. Cur rentLength; 

Status  :  Stack_Statuses; 

—  — begin  function  Stack_Status 

begin 

if  Current_Length  -  -1  then 
Status  Uninitialized; 

elsif  Current_Length  »  0  then 
Status  :»  Empty; 

else 

Status  :-  Available; 
end  if; 

return  Status; 
end  Stack  Status  ; 
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3.3.7.1.9.8.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Abstract_Data_Structures.  Unbounded  Stack: 


|  Name 

Type 

Range 

Description  | 

|  Stack 
j  Statuses 

1 

discrete 

type 

Empty, 

Available 

Uninitialized 

Indicates  the  current  status  of  | 

the  stack 

1 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abs  t  rac  t_Da ta_S  t rue  t ures . Unbounded_S  t ack  package : 


|  Name 

1  Type 

|  Range 

Description  | 

|  Stacks 

1 

|  record 

1 

|  N/A 

1 

List  of  data  along  with  relevant  | 

information  j 

3.3.7.1.9-8.10.7.8  LIMITATIONS 


None. 


3.3.7.1.9.8.10.8  STACK_LENGTH  UNIT  DESIGN 
This  function  returns  the  length  of  the  stack. 

A  Stack_Not_Initialized  exception  is  raised  if  this  routine  is  called  with  an 
uninitialized  stack. 


3.3.7.1.9.8.10.8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R167. 


3.3.7.1.9.8.10.8.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.7.1.9.8.10.8.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

Description  | 

|  Stack 

|  Stacks 

|  in  out 

Stack  being  manipulated  | 

3.3.7.1.9.8.10.8.4  LOCAL  DATA 
None. 

3.3.7.1.9.8.10.8.5  PROCESS  CONTROL 
Not  applicable. 

3.3.7.1.9.8.10.8.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  StackLength  (Stack  :  in  Stacks)  return  NATURAL  is 

— declaration  section 


CurrentJLength  :  INTEGER  renames  Stack. Current_Length; 


—  — begin  function  Stack_Length 


begin 

— make  sure  stack  has  been  initialized 
if  Current_Length  =  -1  then 
raise  Stack_Not_Initialized; 
end  if; 

return  Current_Length; 
end  Stack_Length  ; 


3.3.7.1.9.8.10.8.7  UTILIZATION  OF  OTHER  ELEMENTS 


UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 
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The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  types: 

The  following  table  describes  the  data  types  defined  in  the  private  part  of  the 
Abstract  Data  Structures. Unbounded_Stack  package: 


|  Name 

1  Type 

|  Range 

|  Description  | 

|  Stacks 

1 

|  record 

1 

|  N/A 

1 

|  List  of  data  along  with  relevant  | 

|  information  j 

Exceptions: 

The  following  table  summarizes  the  exceptions  required  by  this  part  and  defined 
in  the  package  specification  of  Abstract_Data  Structures.  Unbounded_Stack: 


|  Name  |  Description 


|  Stack  Not_  |  Raised  if  an  attempt  is  made  to  use  an  uninitialized  stack 
|  Initialized  j 


3.3.7.1.9.8.10.8.8  LIMITATIONS 

The  following  table  describes  the  exceptions  raised  by  this  part: 


|  Name 

|  Vhen/Vhy  Raised  | 

|  Stack  Not  Initialized 

1  "  " 

|  Raised  if  an  attempt  is  made  to  manipulate  an  | 

j  uninitialized  stack  | 

3.3.7.1.9.8.10.9  D0T_NEXT  UNIT  DESIGN 

Given  an  input  pointer  P,  this  function  returns  the  value  of  P.Next. 

3.3.7.1.9.8.10.9.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.7.1.9.8.10.9.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.7.1.9.8.10.9.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|  Ptr 

1 

|  Pointers  | 
1  1 

in 

|  Pointer  to  the  node  whose  ’’next"  entry  is  to  | 
j  be  returned  j 

3.3.7.1.9.8.10.9.4  LOCAL  DATA 


None. 


3.3.7.1.9.8.10.9.5  PROCESS  CONTROL 


Not  applicable. 


3.3.7.1.9.8.10.9.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Dot_Next  (Ptr  :  in  Pointers)  return  Pointers  is 
begin 

return  Ptr. Next; 
end  Dot  Next; 


3.3.7.1.9.8.10.9.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top-level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


Name 

Type 

Range 

Description 

i 

Nodes 

record 

N/A 

A  single  entity  in  the  stack;  contains 

i 

data  and  a  pointer  to  the  next 

node 

i 

Pointers 

access 

N/A 

Points  to  a  node  in  the  stack 

i 

Stacks 

record 

N/A 

Record  containing  the  value  of 

the  current 

length,  head,  and  tail  of  the 

stack 

i 
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3.3.7.1.9.8.10.9.8  LIMITATIONS 
None. 

3.3.7.1.9.8.10.10  SET_NEXT  UNIT  DESIGN 

Given  an  two  input  pointers,  P  and  Q,  this  procedure  sets  P.Next  equal  to  Q. 

3.3.7.1.9.8.10.10.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.7.1.9.8.10.10.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.7.1.9.8.10.10.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  | 

|  Mode 

|  Description  | 

|  Ptr 

|  Pointers  | 

in 

Pointer  to  the  node  vhose  "next"  entry 

1 

is  to  be  modified 

|  Ptr_dot_Next 

|  Pointers  | 

in 

Value  to  which  Ptr. Next  is  to  be  set 

3.3.7.1.9.8.10.10.4  LOCAL  DATA 


None. 


3.3.7.1.9.8.10.10.5  PROCESS  CONTROL 
Not  applicable. 


3.3.7.1.5.8.10.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr_dot_Next  :  in  Pointers)  is 

begin 

Ptr. Next  :=  Ptr_dot_Next ; 
end  Set  Next; 
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3.3.7.1.9.8.10.10.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP-LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top-level  component: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  private  portion  of  the  part's  package  specification: 


Name 


|  Type  |  Range  |  Description 


1 

Nodes 

1 

record 

1 

N/A 

|  A  single  entity  in  the  stack;  contains 

1 

1 

1 

j  data  and  a  pointer  to  the  next  node 

1 

Pointers 

1 

access 

1 

N/A 

|  Points  to  a  node  in  the  stack 

I 

Stacks 

1 

record 

1 

N/A 

j  Record  containing  the  value  of  the  current 

1 

1 

1 

j  length,  head,  and  tail  of  the  stack 

3.3.7.1.9.8.10.10.8  LIMITATIONS 


None. 


3.3.7.1.10  UNIT  DESIGN 


None. 
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package  body  Abstract  Data  Structures  is 


pragma  PAGE; 
generic 

type  Nodes 
type  Pointers 
Avai lable_Leng  t  h 
AvailableHead 
Available  Tail 


is  limited  private; 
is  access  Nodes; 

:  in  out  INTEGER; 

:  in  out  Pointers; 

:  in  out  Pointers; 


with  function  Dot_Next  (Ptr  :  in  Pointers)  return  Pointers  is  <>; 
with  procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr_Dot  Next  :  in  Pointers)  is  <>; 
package  Available_Space_List_OperatTons  is 

function  Nev_Node  return  Pointers; 

procedure  Save_Node  (Saved_Node  :  in  Pointers); 

procedure  Save_List  (Saved_Head  :  in  Pointers; 

Saved_Tail  :  in  Pointers; 

NodeCount  :  in  POSITIVE); 

end  Available_Space_List_Operations; 

pragma  PAGE; 

—  —  separate  package  bodies 


package  body  Bounded_Fifo_Buffer  is  separate; 
package  body  Unbounded_Fifo_Buffer  is  separate; 
package  body  Nonblocking_Circular_Buf fer  is  separate; 
package  body  Unbounded_Priority_Queue  is  separate; 
package  body  Bounded_Stack  is  separate; 
package  body  Unbounded_Stack  is  separate; 
package  body  Available_Space_List_Operations  is  separate; 
end  Abstract  Data  Structures; 
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separate  ( Abs t rac  t_Da t a_S t  rue tures ) 

package  body  Available_Space_List_Operations  is 

pragma  PAGE; 

function  New  Node  return  Pointers  is 


—  declaration  section 


Ptr  s  Pointers; 

New  Available  Head  :  Pointers; 


—  —  begin  Junction  New  Node 


begin 

if  Available_Length  >  0  then 

—  get  the  node  from  the  available  space  list  and  mark  the  node 

—  that  will  now  be  the  head  of  the  available  space  list 

Ptr  Available_Head; 

NewAvailableHead  :«  DotNext(AvailableHead) ; 

—  initialize  node  being  returned 

SetNext  (Ptr  «>  Ptr, 

Ptr_Dot_Next  ->  null); 

— adjust  the  available  space  list 

Available_Head  :  -  New  AvailableHead; 

Available_Length  AvaTlable_Length  -  1; 

else 

— allocate  space  to  get  the  node 
Ptr  new  Nodes; 

end  if; 

return  Ptr; 

end  New_Node; 

pragma  PAGE; 

procedure  Save_Node(Saved_Node  :  in  Pointers)  is 
begin 

Set_Next  (Ptr  =>  Available_Tail, 

Ptr_Dot_Next  =>  Saved_Node); 

Aval lable_ Tail  Saved_Node; 

Set_Next  (Ptr  =>  Available_Tail, 

Ptr  Dot  Next  «>  null); 
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Available_Length  :=  Available_Length  +  1; 
end  Save_Node; 
pragma  PAGE; 

procedure  Save_List  (Saved_Head  s  in  Pointers; 

Saved_Tail  :  in  Pointers; 

Node  Count  :  in  POSITIVE)  is 


begin 

Set_Next  (Ptr  =>  Available  Tail, 

Ptr_Dot_Next  ->  Saved_Hea3); 

Available_Tail  :=  Saved_Tail; 

Set_Next  (Ptr  =•>  Available  Tail, 

Ptr_Dot_Next  ->  Saved_Hea3); 

Available_Length  :=  Available_Length  +  Node_Count; 

end  Save_List; 

end  Available_Space_List_Operations; 
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separate  (Abstract  Data  Structures) 
package  body  Bounded_FiTo_Buf fer  is 

pragma  PAGE; 

procedure  Clear_Buffer  (Buffer  :  out  Buffers)  is 


—  declaration  section 


Buf fer_Length  :  Buffer_Range  renames  Buffer. Buff er_Length; 
Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer  Range  renames  Buffer. Tail; 


—  —  begin  procedure  Clear  Buffer 


begin 

Buf fer_Length  :=  0; 

Head  :=  0; 

Tail  1; 

end  ClearBuffer  ; 

pragma  PAGE; 

procedure  Add_Element  (New  Element  s  in  Elements; 

Buffer  :  in  out  Buffers)  is 


—  declaration  section 


LIST  :  Lists  renames  Buffer. LIST; 

Buffer_Length  :  Buffer_Range  renames  Buffer.Buffer_Length; 

Head  :  BufferJRange  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 


—  —  begin  procedure  Add  Element 


begin 

—  make  sure  buffer  isn  V  full 

if  Head  *  Tail  then 
raise  Buffer_Full; 
end  if; 

LIST(Tail)  :=  New  Element; 

Buffer  Length  :=  Buffer  Length  +  1; 
if  Tail  ^  Buffer_Size  tfien 
Tail  0; 

else 

Tail  Tail  +  1; 

end  if; 
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end  Add  Element  ; 


pragma  PAGE; 

procedure  Retrieve_Element  (Buffer 

Old  Element 


in  out  Buffers; 
out  Elements)  is 


—  declaration  section 


Buf fer_Length  :  Buffer  Range  renames  Buffer.Buffer_Length; 

Head  :  Buffer_Range  renames  Buffer. Head; 

LIST  :  Lists  renames  Buffer. LIST; 

Tail  :  Buffer  Range  renames  Buffer. Tail; 


—  —  begin  procedure  Retrieve  Element 


begin 

—  make  sure  don  ’/  have  an  empty  buffer 

if  Head  »  (Tail-1)  or  else  (Tail  »  0  and  Head  -  Buf fer_Size)  then 
raise  Buffer  Empty; 
end  if; 

if  Head  -  BufferSize  then 
Head  :■  0; 
else 

Head  Head  +  1; 
end  if; 

Old  Element  LIST(Head); 

Buf7er_Length  :»  Buffer_Length  -  1; 

end  Retrieve_Element  ; 

pragma  PAGE; 

function  Peek  (Buffer  :  in  Buffers)  return  Elements  is 


—  declaration  section 


Buffer_Length  :  Buffer_Range  renames  Buffer. Buffer_Length; 

Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer  Range  renames  Buffer. Tail; 

LIST  :  Lists  renames  Buffer. LIST; 

Spot  s  Buffer_Range; 


—  —  begin  function  Peek 


begin 


—  make  sure  don  'I  have  an  empty  buffer 
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if  Head  =  (Tail-1)  or  else  (Tail  =  0  and  Head  =  Buffer_Size)  then 
raise  Buf fer_Empty; 
end  if; 

if  Head  =  Buffer_Size  then 
Spot  :=  0; 
else 

Spot  :=  Head  +  1; 
end  if; 

return  LIST(Spot); 
end  Peek  ; 
pragma  PAGE; 

function  Buffer  Status  (Buffer  :  in  Buffers)  return  Buffer  Statuses  is 


—  declaration  section 


Head  :  Buffer_Range  renames  Buffer. Head; 
Tail  :  Buffer_Range  renames  Buffer. Tail; 

Status  :  Buffer  Statuses; 


—  begin  function  Buffer  Status 


begin 

if  Head  *  (Tail-1)  or  else  (Tail  -  0  and  Head  -  Buffer_Size)  then 
Status  :»  Empty; 
elsif  Head  *  "ail  then 
Status  :=  Full; 
else 

Status  :»  Available; 
end  if; 

return  Status; 
end  Buffer_Status  ; 
pragma  PAGE; 

function  Buf fer_Length  (Buffer  :  in  Buffers)  return  Buffer_Range  is 
begin 

return  Buffer. Buf fer_Length; 


end  Buf fer_Length  ; 
end  Bounded  Fifo  Buffer; 
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with  Unchecked_Deallocation; 
separate  (Abs tract_Data_Structures) 
package  body  Unbounded_Fifo_Buf fer  is 


—  — declaration  section 


—  — this  variable  is  accessed  ONLY  when  setting  up  the  available  space  list 

Initial_Head  ?  Pointers  :=  new  Nodes; 

Available_Space  s  Buffers  :=  (Current_Length  ->  0, 

Head  =>  Initial_Head, 

Tail  =■>  Initial_Head); 

Available_Length  :  INTEGER  renames  Available_Space.Current_Length; 
Available_Head  :  Pointers  renames  Aval lable_Space. Head; 

Available  Tail  :  Pointers  renames  Available_Space.Tail; 

procedure  Free  is  new  Unchecked_Deallocation 

(Object  m>  Nodes, 

NAME  »>  Pointers); 

procedure  Free_Node  (Which_Node  s  in  out  Pointers) 
renames  Free; 


function  DotNext  (Ptr  s  in  Pointers)  return  Pointers; 

procedure  SetNext  (Ptr  s  in  Pointers; 

Ptr_Dot_Next  :  in  Pointers); 


package  Aval  lable_Space_Operat  ions  is  new 
Aval lable_Space_List_Operat ions 


(Nodes 
Pointers 

Available_Length 
Available_Head 
Available  Tail 


■>  Nodes, 

■>  Pointers, 

■>  AvailableJLength, 
■>  Available  Head, 

■>  Available  Tail); 


function  New_Node  return  Pointers 

renames  Aval  lable_Space_Opera t i ons .  New_Node ; 


procedure  Save_Node  (Saved_Node  :  in  Pointers) 

renames  Available_Space_Operations. Save_Node; 


procedure  Save_List  (Saved_Head  :  in  Pointers; 

Saved  Tail  :  in  Pointers; 

Node_Count  :  in  POSITIVE) 

renames  Available_Space_Operations.Save_List; 


pragma  PAGE; 

procedure  Initialize_Buffer  (Buffer  :  in  out  Buffers)  is 


—  declaration  section 
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Current_Length  :  INTEGER  renames  Buf fer.Current_Length; 
Head  :  Pointers  renames  Buffer. Head; 

Tail  :  Pointers  renames  Buffer. Tail; 


—  —  begin  procedure  Initialize  Buffer 


begin 

if  Current_Length  »  -1  then 

—  handle  an  uninitialized  buffer 
Head  :=  New  Node; 

Tail  :  =  Head; 

Current_Length  0; 

elsif  Current_Length  >  0  then 

—  handle  a  buffer  that  lias  something  in  it 
Clear_Buf fer(Buf fer  *>  Buffer); 

else 

—  current  length  =  0  so  it  is  already  initialized 

null; 

end  if; 

end  Initialize_Buf fer  ; 
pragma  PAGE; 

procedure  Clear_Buffer  (Buffer  :  in  out  Buffers)  is 


-  -  declaration  section 


Current_Length  :  INTEGER  renames  Buf fer.Current_Length; 
Head  :  Pointers  renames  Buffer. Head; 

Tail  :  Pointers  renames  Buffer. Tail; 


This  Node  :  Pointers; 


—  — begin  procedute  Clear  Buffer 


begin 

—  make  sure  this  is  an  initialized  buffer 

if  Current_Length  =  -1  then 
raise  Buffer_Not_Initialized; 
end  if; 

— placed  nodes  in  the  available  space  list 

Save  List  (Saved  Head  =>  Head. Next, 
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Saved  Tail  =>  Tail, 

Node_Count  =>  Current  Length); 

—  reinitialize  buffer  variables 

Current_Length  :=  0; 

Head. Next  :=  null; 

Tail  :»  Head; 

end  Clear_Buffer  ; 

pragma  PAGE; 

procedure  Free_Memory  is 


—  declaration  section 


Node  To  Be  Freed  :  Pointers; 


—  —  begin  procedure  Free  Memory 


begin 

Clear  Out_Available  Space_List: 

while  Available_Head  /-  Available_Tail  loop 

Node  To  BeFreed  :■  Available_Head; 
AvailableHead  :■  Aval lable_Head. Next; 

Free_Node  (Which_Node  ->  Node_To_Be_Freed) ; 

end  loop  Clear_Out_Available_Space_List; 

Available_Length  :»  0; 

end  Free_Memory  ; 

pragma  PAGE; 

procedure  Add_Element  (New  Element  :  in  Elements; 

Buffer  :  in  out  Buffers)  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Buffer. Current_Lengthj 
Tail  :  Pointers  renames  Buffer. Tail; 

New  Tail  :  Pointers; 


—  —  begin  procedure  Add  Element 


begin 
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—  make  sure  buffer  lias  been  initialized 

if  Current_Length  =  -1  then 
raise  Buf fer_Not_Initialized; 
end  if; 

—  now  get  a  node 
NevTail  :=  New_Node; 

—  now  adjust  the  buffer 

Tail. Next  :=  New_Tail; 

Tail  :=>  Nev_Tail; 

Tail. Data  :=  Nev_Element; 

Current_Length  :=  Current_Length  +  1; 

end  Add_Element  ; 

pragaa  PAGE; 

procedure  Retrieve_Element  (Buffer  :  in  out  Buffers; 

01d_Element  :  out  Elements)  is 


—  declaration  section 


Current_Length  s  INTEGER  renames  Buffer. Current_Length; 
Head  :  Pointers  renames  Buffer. Head; 

This  Node  :  Pointers; 


—  —  begin  procedure  Retrieve  Element 


begin 

—  make  sure  an  element  is  available 

if  Current_Length  *  -1  then 
raise  Buffer_Not  Initialized; 
elsif  Current_LengtK  -  0  then 
raise  BufferEmpty; 
end  if; 

— save  dummy  node  in  the  available  space  list 

This_Node  Head; 

Head  :=  Head. Next; 

Save_Node  (Saved_Node  =>  This_Node); 

—  retrieve  element  (its  node  becomes  the  new  dummy  node) 
01d_Element  :=  Head. Data; 

—  update  buffer  status 

Current_Length  :=  Current_Length  -  1; 
end  Retrieve  Element  ; 


pragaa  PAGE; 
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function  Peek  (Buffer  :  in  Buffers)  return  Elements  is 


—  declaration  section 


CurrentLength  :  INTEGER  renames  Buffer. Current_Length; 
Head  :  Pointers  renames  Buffer. Head; 


—  — begin  Junction  Peek 


begin 

—  make  sure  something  is  there  to  look  at 

if  Current_Length  ■  -1  then 
raise  Buffer_Not  Initialized; 
elsif  Current_LengtK  *  0  then 
raise  Buf fer_Empty; 
end  if; 

return  Head. Next. Data; 
end  Peek  ; 
pragma  PAGE; 

function  BufferStatus  (Buffer  :  in  Buffers)  return  BufferStatuses  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Buf fer.Current_Length; 
Status  :  Buffer  Statuses; 


—  — begin  function  Buffer  Status 


begin 

if  Current_Length  -  -1  then 
Status  :«  Uninitialized; 

elsif  Current_Length  a  0  then 
Status  Empty; 

else 

Status  :=  Available; 
end  if; 

return  Status; 
end  Buffer  Status  ; 
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pragma  PAGE; 

function  Buf fer_Length  (Buffer  :  in  Buffers)  return  NATURAL  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Buf fer .Current_Length; 


—  — begin  function  Buffer  Length 


begin 

—  make  sure  the  buffer  has  a  length 

if  CurrentJLength  =  -1  then 
raise  Buffer_Not_Initialized; 
end  if; 

return  Current_Length; 
end  Buf fer_Length  ; 
pragma  PAGE; 

function  DotNext  (Ptr  s  in  Pointers)  return  Pointers  is 
begin 

return  Ptr. Next; 
end  DotNext; 

pragma  PAGE; 

procedure  SetNext  (Ptr  s  in  Pointers; 

Ptr_Dot_Next  j  in  Pointers)  is 

begin 

Ptr. Next  :=  Ptr_Dot_Next; 
end  Set_Next; 

pragma  PAGE; 


—  begin  package  Unbounded  FIFO  Buffer 

—  (see  header  for  package  body  for  details) 


begin 

—  — set  up  available  space  list  if  one  is  desired 

if  Initial_Available_Space_Size  >  0  then 

Add  Nodes  To  Available_Space_List: 

lor  I  In  T.  .Initial_Available_Space_Size  loop 
Available_Tail.Next  :=  nev~Nodes; 
Available_Tail  :=  Available_Tail.Next; 

end  loop  Add_Nodes_To_Available_Space_List; 

Available_Length  :=  Initial_Available_Space_Size; 


end  if; 
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end  Unbounded  Fifo  Buffer; 
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separate  ( Abs  t rac  t_Da t a_S  t rue tures ) 
package  body  Nonblocking_Circular_Buf fer  is 

pragma  PAGE; 

procedure  Clear_Buffer  (Buffer  :  out  Buffers)  is 


—  declaration  section 


Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 

Current_Length  :  Buffer_Range  renames  Buffer. Current_Length; 


—  —  begin  procedure  Clear  Buffer 


begin 

Head  :=  0; 

Tail  :=  1; 

Current_Length  :»  0; 

end  ClearBuffer  ; 

pragma  PAGE; 

procedure  Add_Element  (Nev  Element  :  in  Elements; 

Buffer  :  in  out  Buffers)  is 


—  declaration  section 


Head  :  Buffer_Range  renames  Buffer. Head; 

Tail  :  Buffer_Range  renames  Buffer. Tail; 

CurrentJLength  :  Buffer_Range  renames  Buffer. CurrentJLength; 

LIST  :  Lists  renames  Buffer. LIST; 


—  —  begin  procedure  Add  Element 


begin 

LIST(Tail)  New_Eleraent; 
if  Head  =  Tail  then 

—  buffer  was  already  full  and  an  element  ivor  overwritten:  therefore, 

—  both  head  and  tail  need  to  be  advanced,  but  Current  Length  does 

—  not  need  to  be  chcutged 

if  Tail  a  Buffer_Size  then 
Head  :«  0; 

Tail  :=  0; 
else 
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Head  :=  Head  +  1; 

Tail  :=  Tail  +  1; 
end  if; 

else 

—  buffer  was  not  already  full;  therefore,  the  Current  Length  needs 

—  to  be  increment  and  only  the  tail  needs  to  be  advanced 

if  Tail  =  Buffer_Size  then 
Tail  :=  0; 
else 

Tail  :=  Tail  +  1; 
end  if; 

Current_Length  :*  Current_Length  +  1; 
end  if; 

end  Add_Element  ; 
pragma  PAGE; 

procedure  Retrieve_Element  (Buffer  :  in  out  Buffers; 

Old  Element  :  out  Elements)  is 


—  declaration  section 


Head  :  BufferJRange  renames  Buffer. Head; 

Tail  :  BufferRange  renames  Buffer. Tail; 

Current_Length  s  Buffer_Range  renames  Buffer. Current_Length; 

LIST  :  Lists  renames  Buffer. LIST; 


—  —  begin  procedure  Retrieve  Element 
_ _ 1 _ 


begin 

—  make  sure  there  is  something  there  to  retrieve 
if  CurrentJLength  -  0  then 

raise  Buffer_Empty; 
end  if; 

— advance  the  head  to  get  to  the  next  element  to  go  out 

if  Head  -  Buffet_Size  then 
Head  0; 
else 

Head  :=  Head  +  1; 
end  if; 

—  now  retrieve  the  element  and  update  the  state  of  the  buffer 

01d_Element  :=  LI ST (Head); 

Current_Length  Current_Length  -  1; 


end  Retrieve  Element  ; 
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t 


pragma  PAGE; 

function  Peek  (Buffer  :  in  Buffers)  return  Elements  is 


—  declaration  section 


Head  :  Buffer_Range  renames  Buffer. Head; 

CurrentLength  :  Buffer_Range  renames  Buffer. Current_Length; 

LIST  :  Lists  renames  Buffer. LIST; 

Spot  :  Buf fer_Range; 


—  —  begin  function  Peek 


begin 

—  make  sure  there  is  something  to  peek  at 

if  Current_Length  •  0  then 
raise  Buf fer_Empty; 
end  if; 

—  determine  location  of  desired  element 
if  Head  ■  Buff.erSize  then 

Spot  :»  0; 

else 

Spot  :■  Head  +  1; 
end  if; 

—  return  requested  element 
return  LIST(Spot); 

end  Peek.  ; 

pragma  PAGE; 

function  BufferStatus  (Buffer  :  in  Buffers)  return  Buffer  Statuses  is 


—  declaration  section 


Current_Length  :  Buffer_Range  renames  Buffer. Current_Length; 
Status  :  Buffer  Statuses; 


—  —  begin  function  Buffer  Status 


begin 

if  Current_Length  «  0  then 
Status  7-  Empty; 

elsif  Current_Length  -  Buffer  Size  then 
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Status  :=  Full; 
else 

Status  :=  Available; 
end  if; 

return  Status; 

end  Buf fer_Status  ; 

pragma  PAGE; 

function  Buf fer_Length  (Buffer  :  in  Buffers)  return  Buffer_Range  is 
begin 

return  Buffer.Current_Length; 
end  Buf fer_Length  ; 
end  Nonblocking_Circular_Buf fer; 
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with  Unchecked_Deallocation; 
separate  (Abstract_Data_Structures) 
package  body  Unbounded_Priority_Queue  is 


—  — declaration  section 


—  —  this  pointers  is  accessed  ONLY  when  setting  up  the  Available  Space 

Initial_Head  :  Pointers  :=  new  Nodes; 

Available_Space  :  Queues  :«  (Current_Length  =>  0, 

Head  =>  Initial_Head, 

Tail  ->  Ini tial_Head) ; 

Available_Length  :  INTEGER  renaaes  Available_Space. Current JLength; 
Available_Head  :  Pointers  renaaes  Avai lable_Space. Head; 
Available_Tail  :  Pointers  renaaes  Avai lable-Space. Tail; 

procedure  Free  is  new  Unchecked_Deallocation 

(Object  =>  Nodes, 

NAME  *>  Pointers); 

procedure  Free_Node  (Which_Node  :  in  out  Pointers) 
renaaes  Free; 

function  DotNext  (Ptr  s  in  Pointers)  return  Pointers; 

procedure  SetNext  (Ptr  s  in  Pointers; 

PtrDotNext  s  in  Pointers); 

package  Avai  lable_Space_Operat  ions  is  new 
Avai  lable_Space_List_Operat  ions 

(Nodes-  ->  Nodes, 

Pointers  ->  Pointers, 

Available_Length  *>  Available_Length, 

Available_Head  ->  Available_Head, 

Available_Tail  ■>  Available_Tail); 

function  New_Node  return  Pointers 

renaaes  Avai lable_Space_Opera t ions . New_Node ; 

procedure  Save_Node  (Saved_Node  :  in  Pointers) 

renaaes  Avai lable_Space_Operat ions . Save_Node; 

procedure  Save_List  (Saved_Head  s  in  Pointers; 

Saved  Tail  :  in  Pointers; 

Node_Count  s  in  POSITIVE) 

renaaes  Available_Space_Operations.Save_List; 

pragma  PAGE; 

procedure  Initialize  (Queue  :  in  out  Queues)  is 


—  declaration  section 
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Current_Length  :  INTEGER  renames  Queue. Current  Length; 
Head  :  Pointers  renames  Queue. Head; 

Tail  :  Pointers  renames  Queue. Tail; 


—  —  begin  procedure  Initialize 


begin 

if  Current_Length  =  -1  then 

—  handle  an  uninitialized  queue 
Head  :=  New  Node; 

Tail  :=  HeacI; 

Current_Length  :=  0; 

elsif  Current_Length  >  0  then 

—  handle  a  queue  that  has  something  in  it 
Clear_Queue(Queue  =>  Queue); 

else 

—  current  length  =  0  so  it  is  already  initialized 

null; 

end  if; 

end  Initialize  ; 
pragma  PAGE; 

procedure  Clear_Queue  (Queue  :  in  out  Queues)  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current_Length; 

Head  :  Pointers  renames  Queue. Head; 

Tail  :  Pointers  renames  Queue. Tail; 


This  Node  :  Pointers; 


—  —  begin  procedure  Clear  Queue 

begin 

—  make  sure  this  is  an  initialized  queue 

if  Current_Length  =  -1  then 

raise  Queue_Not_Initialized; 
elsif  Current_Length  >  0  then 
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—  placed  nodes  in  the  available  space  list 
Save_List  (Saved_Head  =>  Head. Next, 

Saved_Tail  =>  Tail, 

Node_Count  =>  Current_Length) ; 

—  reinitialize  queue  variables 

Current_Length  :=  0; 

Head. Next  :  =  null; 

Tail  :  =  Head; 

end  if; 

end  Clear_Queue  ; 
pragma  PAGE; 

procedure  Free_Memory  is 


—  declaration  section 


Node  To  Be  Freed  :  Pointers; 


—  —  begin  procedure  Free  Memory 


begin 

Clear  Out  Available_Space_List: 

while  Aval lab leHead  /-  Available  Tail  loop 
Node  To  Be  Freed  Available_Iead; 

AvaiIabIe_Head  :»  Aval lable_Head. Next; 
Free_Node  (Which_Node  ->  Node_To_Be_Freed); 
end  loop  Clear_Out_Available_Space_List; 

Available_Length  :=  0; 

end  Free_Memory  ; 

pragma  PAGE; 

procedure  Add_Element  (New_Element  :  in  Elements; 

Nev_Priority  s  in  Priorities; 

Queue  :  in  out  Queues)  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current_Length; 
Head  :  Pointers  renames  Queue. Head; 

Tail  :  Pointers  renames  Queue. Tail; 


Before 

Here 


:  Pointers; 
:  Pointers; 
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—  —  begin  procedure  Add  Element 


begin 

—  make  sure  queue  has  been  initialized 

if  Current_Length  =  -1  then 
raise  Queue_Not_Initialized; 
end  if; 

— find  the  nodes  which  are  to  go  before  and  after  the  new  element 

Before  :  =  Head; 

loop 

exit  when  (Before  -  Tail)  or  else 

(New_Priority  >  Bef ore. Next .PRIORITY) ; 

Before  :=•  Before. Next; 
end  loop; 

—  now  gel  a  new  node 
Here  :*  New_Node; 

—  set  up  the  new  node 

Here. PRIORITY  :«  NewPriority; 

Here. Data  :■  New  Element; 

Here. Next  :«  Bef ore. Next; 

Before. Next  :<■  Here; 

—  readjust  the  tail,  if  required 

if  Before  -  Tail  then 
Tail  Here; 
end  if; 

—  now  adjust  the  queue 

Current_Length  :*  Current_Length  +  1; 
end  Add_Element  ; 
pragma  PAGE; 

procedure  Retrieve_E!ement  (Queue  :  in  out  Queues; 

Old  Element  :  out  Elements)  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Queue. Cur rent_Length; 
Head  :  Pointers  renames  Queue. Head; 

This  Node  :  Pointers; 


—  —  begin  procedure  Retrieve  Element 


begin 


—  make  sure  an  element  is  available 
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if  Current_Length  =  -1  then 
raise  Queue_Not_Initialized; 
elsif  Current_Length  =  0  then 
raise  Queue_Empty; 
end  if; 

—  save  dummy  node  in  ilie  available  space  list 

This_Node  :=  Head; 

Head  *-  Head. Next; 

Save_Node  (Saved_Node  =>  This_Node); 

—  retrieve  element  (its  node  becomes  the  new  dummy  node ) 

OldElement  :=  Head. Data; 

—  update  queue  status 

CurrentJLength  :=  Current_Length  -  1; 
end  Retrieve_Element  ; 
pragma  PAGE; 

function  Peek  (Queue  :  in  Queues)  return  Elements  is 


—  declaration  section 


CurrentLength  s  INTEGER  renames  Queue. CurrentLength; 
Head  :  Pointers  renames  Queue. Head; 


—  —  begin  function  Peek 


begin 

—  make  sure  something  is  there  to  look  at 

if  Current_Length  -  -1  then 
raise  Queue_Not_Initialized; 
elsif  Current_LengIh  >  0  then 
raise  Queue_Empty; 
end  if; 

return  Head. Next. Data; 
end  Peek  ; 
pragma  PAGE; 

function  Queue_Status  (Queue  :  in  Queues)  return  Queue_Statuses  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Queue. Current_Length; 
Status  :  Queue  Statuses; 
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—  begin  function  Queue  Status 


begin 

if  CurrentLength  =  -1  then 
Status  :  =  Uninitialized; 
elsif  Current_Length  =  0  then 
Status  :=  Empty; 

else 

Status  : =  Available; 
end  if; 

return  Status; 
end  Queue_Status  ; 
pragaa  PAGE; 

function  Queue  Length  (Queue  :  in  Queues)  return  NATURAL  is 


—  declaration  section 


CurrentLength  :  INTEGER  renaaes  Queue. CurrentLength; 


—  —  begin  Junction  Queue  Length 


begin 

—  make  sure  the  queue  has  a  length 
if  Current_Length  -  -1  then 
raise  Queue_Not_Initialized; 
end  if; 

return  Current_Length; 
end  Queue_Length  ; 
pragaa  PAGE; 

function  DotNext  (Ptr  :  in  Pointers)  return  Pointers  is 
begin 

return  Ptr. Next; 
end  Dot_Next; 

pragaa  PAGE; 

procedure  Set_Next  (Ptr  s  in  Pointers; 

Ptr_Dot_Next  :  in  Pointers)  is 

begin 

Ptr. Next  :=  Ptr_Dot_Next; 
end  Set_Next; 

pragaa  PAGE; 

—  begin  package  Unbounded  Priority  Queue 
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—  ( see  header  for  package  body  for  details) 


begin 

—  —  set  up  available  space  list  if  one  is  desired 

if  Initial_Available_Space_Size  >  0  then 

Add  Nodes  To  Available_Space_List: 

lor  I  In  T. .  Ini tial_Available_Space_Size  loop 
Aval lable_Tail. Next  nev~Nodes; 

Available_Tail  Aval lable_Tail. Next; 

end  loop  Add_Nodes_To_Available_Space_List; 

Available_Length  :=  Initial_Available_Space_Size; 

end  if; 

end  Unbounded_Priority_Queue; 
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separate  ( Abs  t  rac  t_Da t a_S t  rue  t ures ) 
package  body  Bounded_Stack  is 

pragma  PAGE; 

procedure  Clear_Stack  (Stack  !  out  Stacks)  is 
begin 

Stack. Top  :=  0; 
end  Clear_Stack  ; 
pragma  PAGE; 

procedure  Add_Element  (Nev_Element  :  in  Elements; 

Stack  :  in  out  Stacks)  is 


—  declaration  section 


LIST  :  Lists  renames  Stack. LIST; 

Top  :  StackLengthRange  renames  Stack. Top; 


—  —  begin  procedure  AddElement 


begin 

— make  sure  the  stack  is  not  already  full 
if  Top  -  Stack_Size  then 
raise  Stack_Full; 
end  if; 

— add  element  to  the  stack 
Top  :«  Top  +  1; 

LIST(Top)  Nev_Element; 

end  Add_Element  ; 

pragma  PAGE; 

procedure  Retrieve_Element  (Stack  :  in  out  Stacks; 

Old  Element  :  out  Elements)  is 


—  declaration  section 


LIST  :  Lists  renames  Stack. LIST; 

Top  i  Stack_Length_Range  renames  Stack. Top; 


—  —  begin  procedure  Retrieve  Element 


begin 
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i 

—  make  sure  there  is  something  in  the  stack  to  retrieve 

if  Top  =  0  then 

raise  Stack_Empty; 
end  if; 

—  —  retrieve  and  remove  the  top  element  from  the  stack 

01d_Element  :  =  LIST(Top); 

Top  :=  Top  -  1; 

end  Retrieve_Element  ; 

pragma  PAGE; 

function  Peek  (Stack  :  in  Stacks)  return  Elements  is 


—  declaration  section 


LIST  :  Lists  renames  Stack. LIST; 

Top  :  Stack_Length_Range  renames  Stack. Top; 


—  — begin  function  Peek 


begin 

— make  sure  there  is  something  in  the  stack 

if  Top  »  0  then 

raise  Stack  Empty; 
end  if; 

—  return  value  in  top  element  of  the  stack 
return  LIST(Top); 

end  Peek  ; 

pragma  PAGE; 

function  Stack  Status  (Stack  :  in  Stacks)  return  Stack  Statuses  is 


—  declaration  section 


Top  :  Stack_Length_Range  renames  Stack. Top; 
Status  :  Stack  Statuses; 


—  — begin  function  Stack  Status 


begin 

if  Top  -  0  then  ( 

Status  :«  Empty; 
elsif  Top  -  Stack_Size  then 
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Status  :=  Full; 
else 

Status  :=  Available; 

end  if; 

return  Status; 
end  StackStatus  ; 
pragma  PAGE; 

function  Stack_Length  (Stack  s  in  Stacks)  return  Stack_Length_Range  is 
begin 

return  Stack. Top; 
end  Stack_Length  ; 


end  Bounded  Stack; 
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with  Unchecked_Deallocation; 
separate  (Abstract_Data_Structures) 
package  body  (Jnbounded_Stack  is 


—  —  declaration  section 


—  —  this  pointer  is  accessed  ONLY  when  setting  up  the  Available  Space 

Initial_Head  :  Pointers  :=  new  Nodes; 

Available_Space  :  Stacks  (Current_Length  =>  0, 

Top  =>  Initial_Head, 

Bottom  m>  InitialHead); 

AvailableLength  :  INTEGER  renaaes  Available_Space.Current_Length; 
Available  Top  :  Pointers  renaaes  Aval lable_Space. Top; 
Available_Bottom  :  Pointers  renaaes  AvailableJSpace. Bottom; 

procedure  Free  is  new  Unchecked_Deallocation 

(Object  ->  Nodes, 

NAME  »>  Pointers); 

procedure  Free_Node  (Which_Node  :  in  out  Pointers) 
renaaes  Free; 

function  Dot  Next  (Ptr  s  in  Pointers)  return  Pointers; 

procedure  SetNext  (Ptr  :  in  Pointers; 

Ptr_Dot_Next  s  in  Pointers); 

package  Available  Space  Operations  is  new 
Available_Space_List_Operations 

(Nodes  ■>  Nodes, 

Pointers  =>  Pointers, 

Available_Length  ->  Available_Length, 

Aval lab le_Head  ■>  AvailableJTop, 

AvailableTail  ■>  Available_Bottom); 

function  New_Node  return  Pointers 

renaaes  Available_Space_Operations .New_Node; 

procedure  Save_Node  (Saved_Node  :  in  Pointers) 

renaaes  Aval lable~Space_Operat ions .  Save_Node; 

procedure  Save_List  (Saved_Head  :  in  Pointers; 

Saved_Tail  s  in  Pointers; 

Node_Count  :  in  POSITIVE) 
renaaes  Ava i lable_Space_Oper a t ions. Save_Li s t ; 

pragma  PAGE; 

procedure  Initialize  (Stack  :  in  out  Stacks)  is 


—  declaration  section 
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Current_Length  :  INTEGER  renames  Stack. Current_Length; 
Top  :  Pointers  renames  Stack. Top; 

Bottom  :  Pointers  renames  Stack. Bottom; 


—  —  begin  procedure  Initialize 


begin 

if  Current_Length  ■  -1  then 

—  handle  an  uninitialized  stack 

Top  : -  Nev_Node ; 

Bottom  :=*  Top; 

CurrentJLength  s-  0; 

elsif  Current_Length  >  0  then 

—  handle  a  stack  that  has  elements  in  it 
ClearStack  (Stack  ■>  Stack); 

else 

— current  length  =  0,  so  do  nothing 

null; 

end  if; 

end  Initialize  ; 
pragma  PAGE; 

procedure  Clear_Stack  (Stack  :  in  out  Stacks)  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Stack. Current_Length; 
Top  :  Pointers  renames  Stack. Top; 

Bottom  :  Pointers  renames  Stack. Bottom; 


This  Node  j  Pointers; 


—  —  begin  procedure  Clear  Stack 


begin 

—  make  sure  stack  has  been  initialized 

if  Current_Length  -  -1  then 

raise  Stack_Not_Initialized; 

—  make  sure  there  is  something  in  the  stack 

elsif  Current  Length  /-  0  then 
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—  placed  nodes  in  the  available  space  list 

Save_List  (Saved_Head  =>  Top. Next, 
Saved_Tail  =>  Bottom, 
Node_Count  =>  Current_Length) ; 

—  reinitialize  stack  variables 

Top. Next  :  =  null; 

Bottom  :=  Top; 

Current_Length  :*  0; 

end  if; 

end  Clear_Stack  ; 
pragma  PAGE; 

procedure  Free  Memory  is 


—  declaration  section 


This  Node  :  Pointers; 


—  -  begin  procedure  Free  Memory 


begin 

Deallocate_Nodes  In  Available  SpaceJList: 

while  AvailableJTop  /-  AvaTlable_Bottom  loop 

This  Node  :■  Available_Top; 

AvaiIable_Top  j-  Available  Top. Next; 

Free_Node  (Which_Node  ■>  THis_Node); 

end  loop  Deallocate_Nodes_In_Available_Space_List; 

AvailableLength  0; 

AvailableJTop. Next  :■  null; 

end  Free_Memory  ; 

pragma  PAGE; 

procedure  Add_Element  (New_Element  :  in  Elements; 

Stack  :  in  out  Stacks)  is 


—  declaration  section 


CurrentJLength  :  INTEGER  renames  Stack.Current_Length; 
Top  :  Pointers  renames  Stack. Top; 

Ptr  :  Pointers; 
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—  —  begin  procedure  Add  Element 


begin 

if  CurrentLength  =  -1  then 
raise  StackNotlni tialized ; 
end  i f ; 

—  get  a  node  and  initialize  it 

Ptr  :=  Nev_Node; 

Ptr.Data  :»  NewElement; 

—  place  the  node  on  the  stack 

Ptr. Next  :»  Top; 

Top  :«  Ptr; 

Current_Length  :«  Current_Length  *  1; 

end  AddElement  ; 

pragma  PAGE; 

procedure  Retr ieveElemen :  (Stack  s  in  out  Stacks; 

01d_Element  :  out  Elements)  is 


—  declaration  section 


CurrentLength  :  INTEGER  renames  Stack. Current_Length; 
Top  s  Pointers  renames  Stack. Top; 

ThisNode  :  Pointers; 


—  —  begin  procedure  Retrieve  Element 


begin 

—  make  sure  there  is  something  to  retrieve 
if  Current_Length  »  -1  then 

raise  StackNotlnitialized; 
elsif  Current  Length  -  0  then 
raise  StacE  Empty; 
end  if; 

—  retrieve  data  in  the  top  node 
OldElement  Top. Data; 

—  dispose  of  top  node  and  adjust  the  stack 

ThisNode  :=  Top; 

Top  Top. Next; 

SaveNode  (SavedNode  ->  ThisNode); 
CurrentLength  CurrentLength  -  1; 


end  RetrieveElement  ; 
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pragma  PAGE; 

function  Peek  (Stack  :  in  Stacks)  return  Elements  is 


—  declaration  section 


Current_Length  s  INTEGER  renames  Stack. Current_Length; 
Top  :  Pointers  renames  Stack. Top; 


—  — begin  function  Peek 


begin 

—  make  sure  there  is  something  to  peek  at 
if  Current_Length  »  -1  then 

raise  Stack_Not_Initialized; 
elsif  Current  Length  <■  0  then 
raise  Stack_Empty; 
end  if; 

—  returned  desired  element 
return  Top. Data; 

end  Peek  ; 

pragma  PAGE; 

function  StackStatus  (Stack  :  in  Stacks)  return  StackStatuses  is 


—  declaration  section 


Current_Length  :  INTEGER  renames  Stack. Current_Length; 
Status  :  Stack  Statuses; 


—  — begin  function  Stack  Status 


begin 

if  Current_Length  -  -1  then 
Status  Uninitialized; 

elsif  Current_Length  =  0  then 
Status  :=  Empty; 

else 

Status  :  =  Available; 


end  if; 
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return  Status; 
end  StackStatus  ; 
pragma  PAGE; 

function  Stack_Length  (Stack  :  in  Stacks)  return  NATURAL  is 
—  declaration  section 


CurrentJLength  :  INTEGER  renames  Stack. Current_Length; 


—  —  begin  function  Slack  Length 


begin 

—  make  sure  stack  has  been  initialized 

if  Current_Length  =  -1  then 
raise  Stack_Not_Initialized; 
end  if; 

return  Cur rent  Length; 
end  StackLength  ; 
pragma  PAGE; 

function  DotNext  (Ptr  s  in  Pointers)  return  Pointers  is 
begin 

return  Ptr. Next; 
end  Dot_Next; 

pragma  PAGE; 

procedure  Set_Next  (Ptr  :  in  Pointers; 

Ptr_Dot_Next  :  in  Pointers)  is 

begin 

Ptr. Next  Ptr_Dot_Next; 

end  Set_Next; 

pragma  PAGE; 


—  begin  package  Unbounded  Slack 

—  (see  header  for  package  body  for  details ) 


begin 

—  — set  up  available  space  list  if  one  is  desired 

if  Initial_Available_Space_Size  >  0  then 

Add  Nodes  To  Available_Space_List : 

lor  I  In  T.  .Initial~Available_Space_Size  loop 
Available_Bottom7Next  s-  new  Nodes; 

Aval lable~Bot tom  Available_Bot tom. Next; 

end  loop  Add~Nodes_To_Available_Space_List ; 
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Available_Length  :=  Initial_Available_Space_Size; 
end  if; 

end  Unbounded  Stack; 
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3.3.8  GENERAL  UTILITIES 
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3. 3.8.1  GENERALJJTILITIES  TLCSC  P361  (CATALOG  #P267-0) 

This  package  provides  a  group  of  general  utility  routines  used  in  a  missile 
system. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3.8. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R141. 


3.3.8. 1.2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 8. 1.3  INPUT/OUTPUT 
None. 

3.3.8. 1.4  LOCAL  DATA 
None. 

3. 3.8. 1.5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 8. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
package  body  General_Utilities  is 
end  General  Utilities; 


3. 3. 8. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 8. 1.8  LIMITATIONS 


None. 
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3.3.8. 1.9  LLCSC  DESIGN 


None. 


3.3.8.1.10  UNIT  DESIGN 

3.3.8.1.10.1  INSTRUCTION_SET_TEST  UNIT  DESIGN  (CATALOG  #P268-0) 

This  part  is  a  generic  function  which  checks  for  proper  processor  operation  by 
executing  a  function  and  comparing  the  result  to  the  expected  result.  If  the 
expected  and  derived  values  match,  "True"  is  returned.  The  part's  generic 
parameter  may  be  any  type,  but  a  Test  function  must  be  supplied  which  matches 
the  parameter  defined  in  the  specification. 


3.3.8.1.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R141. 


3.3.8.1.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.8.1.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Return  Values 

1  1 

|  private 

|  May  be  any  type.  The  type  which  the  included 
|  function  must  return. 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  Test 

1 

|  function 

1 

the  function  to  be  tested,  it  must  return  a  value  of  | 

Return_Values  type.  j 

FORMAL  PARAMETERS: 
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The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

Description  | 

|  Correct  Answer 

1 

Return  Values 

in 

The  answer  which  is  to  be  compared  j 
to  what  the  function  returns.  j 

3.3.8.1.10.1.4  LOCAL  DATA 


None. 


3.3.8.1.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.8.1.10.1.6  PROCESSING 


The  following  describes  the  processing  performed 


by  this  part: 


function  Instruction_Set_Test(  Correct_Ansver  :  Return_Values  ) 

return  BOOLEAN  is 


begin 

return  Test  -  CorrectAnsver; 

—  returns  true  if  function  and  answer  are  the  same 

—  false  if  they  are  not 
end  Instruction  Set  Test; 


3.3.8.1.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.8.1.10.1.8  LIMITATIONS 


None. 
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package  body  General_Utili ties  is 


function  Instruction_Set_Test(  Correct_Answer  :  Return_Values  ) 

return  BOOLEAN  is 


begin 

return  Test  =  Correct_Ansver ; 

—  returns  true  if  function  and  answer  are  the  same 

—  false  if  they  are  not 

end  Instruction_Set_Test ; 

end  General  Utilities; 
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3. 3. 8. 2  COMMUNICATION_PARTS  TLCSC  P602  (CATALOG  #P691-0) 

This  package  provides  a  group  of  communication  routines  used  in  a  missile 
system. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 8. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R137. 

3. 3. 8. 2. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 8. 2. 3  INPUT/OUTPUT 
None. 

3. 3. 8. 2. 4  LOCAL  DATA 
None. 

3. 3. 8. 2. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 8. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
package  body  Communication_Parts  is 
end  Communication  Parts; 


3. 3. 8. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 8. 2. 8  LIMITATIONS 


None. 
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3. 3. 8. 2. 9  LLCSC  DESIGN 

3. 3. 8. 2. 9.1  UPDATE_EXCLUSION  PACKAGE  DESIGN  (CATALOG  #P692-0) 

This  part  is  a  generic  package  containing  a  task  providing  a  mechanism  for 
ensuring  that  data  accessed  by  more  than  one  asymchronous  task  is  properly 
protected  for  such  accesses.  The  part's  generic  parameter  can  be  any  type. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3.8. 2.9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R137. 


3. 3. 8. 2. 9. 1.2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 8. 2. 9. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Element_Type  | 

private  I 

|  Allows  any  type  to  be  protected  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

|  Initial  Value 

1  1 

: 

1 

|  Element_Type 

|  Allows  the  data  type  to  be  initialized  so 
j  that  the  first  time  Start_Update_Request  is 
|  called  a  constraint  error  is  not  raised  by 
|  some  uninitialized  value. 

FORMAL  PARAMETERS: 

The  following  table  describes  the  formal  parameters  for  the  task  entries  in  the 
task  contained  in  this  part. 
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1 

Task 

1 

Name 

|  Mode 

1 

Type 

1 

Description 

1 

I 

Read 

1 

Read  Request 

|  Output 

1 

Element  Type 

1 

Contains  the  value  of 

1 

1 

Update 

1 

1 

1 

the  returned  data. 

1 

1 

1 

Start  Update 

|  Output 

1 

Element  Type 

1 

Contains  the  value  of 

1 

1 

1 

1 

Request 

1 

| 

1 

the  returned  data. 

1 

1 

Complete 

j  Input 

1 

1 

Element  Type 

1 

1 

Contains  the  new  value 

1 

of  j 

1 

1 

Update 

1 

the  data  to  replace 

1 

1 

1 

Request 

1 

1 

the  protected  data. 

1 

3. 3. 8. 2. 9. 1.4  LOCAL  DATA 


None. 


3. 3. 8. 2. 9. 1.5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 8. 2. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  parts, 
package  body  UpdateExclusion  is 
task  ReadUpdate  is 

entry  Task_Read_Request(  Requested  Data  s  out  Element_Type  ); 
entry  Task_Start_Update_Request(  Old_Data  :  out  Element_Type  ); 
entry  Task_Complete_Update_Request(  Nev_Data  s  in  Element_Type  ); 
end  Read_Update; 

procedure  Attempt_Read(  Requested_Data  :  in  out  Element_Type; 

Result  s  out  Rendezvous_Flags  )  is 

begin 

select 

Read  Update.Task._Read_Request(  Requested_Data  ); 

Result  :*  Success; 

Else 

Result  :»  Failure; 
end  select; 
end  Attempt_Read; 

procedure  Attempt_Read_Wait(  Requested_Data  :  in  out  Element_Type; 

Result  :  out  Rendezvous_Flags  )  is 

begin 

Read  Update. Task_Read_Request(  Requested_Data  ); 

Result  :=  Success; 
end  Attempt_Read_Vait; 

procedure  Attempt_Read_Delay(  Requested_Data  :  in  out  Element_Type; 

Result  s  out  Rendezvous_Flags; 

Delay  Time  :  in  DURATION  )  is 
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begin 

Result  :=  Failure; 
select 

Read  Update.Task_Read_Request(  Requested_Data  ); 

Result  :=  Success; 
or 

DELAY  Delay _Time; 
end  select; 

end  Attempt_Read_Delay; 

procedure  A«.tempt_Start_Update(  01d_Data  :  in  out  Element_Type; 

New_Id  :  out  Rendezvous_Ids ; 

Result  :  out  Rendezvous_Flags)  is 

begin 

select 

Read_Update.Task_Start_Update_Request(  01d_Data  «>  Old_Data  ); 
New_Id  :=  Id; 

Result  :  =  Success; 
else 

Result  :  =  Failure; 

New  Id  :=  0; 
end  select; 

end  Attempt_Start_Update; 

procedure  Attempt_Start_Update_Vait(  OldData  :  in  out  ElementType; 

New_Id  :  out  Rendezvouses ; 

Result  :  out  RendezvousFlags  )  is 

begin 

Read  Update. Task_Start_Update_Request(  Old  Data  ->  Old  Data  ); 

New_Id  ;■  Id; 

Result  Success; 

end  Attempt_Start_Update_Wait; 

procedure  Attempt_Start_Update_Delay(  0ld_Data  :  in  out  Element_Type; 

New_Id  :  out  Rendezvous_Ids; 

Result  :  out  Rendezvous_Flags ; 

Time  :  in  DURATION  )  is 

begin 

Result  Failure; 

select 

Read_Update.Task_Start_Update_Request(  01d_Data  ■>  01d_Data  ); 
New_Id  s»  Id; 

Result  Success; 
or 

DELAY  Time; 
end  select; 

end  Attempt_Start_Update_Delay; 

procedure  Attempt_Complete_Update(  New_Data  :  in  Element_Type; 

Passed_Id  :  in  Rendezvous_Ids; 

Result  :  out  Rendezvous_Flags  )  is 

begin 

if  Passed_Id  =  Id  then 
select 

Read  Update. Task_Complete_Update_Request(  New_Data  ); 

Result  :=  Success; 
else 
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Result  :=  Failure; 
end  select; 
else 

Result  :=  Bad_Id; 
end  if; 

end  Attempt_Complete_Update; 
task  body  Read_Update  is 

Protected_Data  :  Element_Type  :=  Initial_Value; 
begin 

process_continually: 

loop 

select 

accept  Task  Read  Request  (Requested  Data  :  out  Element  Type) 
do 

Requested  Data  :«  Protected_Data; 
end  Task_Rea3_Reques  t ; 
or 

accept  Task  Start  Update  Request  (Old  Data  :  out  Element  Type) 
do 

01d_Data  :■  Protected_Data; 
end  Task_Start_Update_Request; 

accept  Task  Complete  Update  Request  (Nev  Data  :  in  Element  Type) 
do 

Protected  Data  :  -  Nev_Data; 
end  TaskCompleteUpdateJRequest; 

if  Id  -  Rendezvouses '  LAST  then 
Id  :■  Rendezvous_Ids' FIRST  +  1; 
else 

Id  :«  Rendezvtu»s_Ids'SUCC(  Id  ); 
end  if; 
or 

terminate; 
end  select; 

end  loop  process_continually; 
end  Read_Update; 

end  Update_Exclusion; 


3. 3. 8. 2. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3. 3. 8. 2. 9. 1.8  LIMITATIONS 


None. 
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3.3.8. 2.9. 1.9  LLCSC  DESIGN 


None. 


3.3.8.2.9.1.10  UNIT  DESIGN 


None. 

3.3.8.2.10  UNIT  DESIGN 


None. 
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package  body  Communication_Parts  is 
package  body  Update_Exclusion  is 
task  Read_Update  is 

entry  Task_Read_Request(  Requested  Data  :  out  Element_Type  ); 
entry  Task_Start_Update_Request(  Old_Data  :  out  Element_Type  ); 
entry  Task_Complete  Update_Request(  New_Data  :  in  Element_Type  ); 
end  Read_Update; 

procedure  Attempt_Read(  Requested_Data  :  in  out  Element_Type; 

Result  :  out  Rendezvous_Flags  )  is 

begin 

select 

Read  Update. Task_Read_Request(  Requested_Data  ); 

Result  :=  Success; 
else 

Result  :=*  Failure; 
end  select; 
end  Attempt_Read; 

procedure  Attempt_Read_Vait(  Requested_Data  s  in  out  Element_Type; 

Result  :  out  Rendezvous_Flags  )  is 

begin 

Read  Update. Task_Read_Request(  RequestedData  ); 

Result  :«  Success; 
end  Attempt_Read_Vait; 

procedure  Attempt_Read_Delay(  Requested_Data  :  in  out  Element  Type; 

Result  :  out  Rendezvous_Flags ; 

Delay_Time  s  in  DURATION  )”  is 

begin 

Result  j-  Failure; 
select 

Read  Update.Task_Read_Request(  Requested_Data  ); 

Result  :  =  Success; 
or 

delay  Delay _Time; 
end  select ; 

end  Attempt_Read_Delay; 

procedure  Attempt_Start_Update(  01d_Data  :  in  out  Elenent_Type; 

New_Id  :  out  Rendezvous_Ids ; 

Result  :  out  RendezvousFlags)  is 

begin 

select 

Read_Update.Task_Start_Update_Request(  01d_Data  ■>  01d_Data  ); 
New_Id  :■  Id; 

Result  Success; 
else 

Result  :=  Failure; 

New  Id  :=  0; 
end  select; 

end  Attempt_Start_Update; 

procedure  Attempt_Start_Update_Vait(  01d_Data  s  in  out  Element_Type; 

New  Id  :  out  Rendezvous  Ids; 
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Result  :  out  RendezvousFlags  )  is 

begin 

Read  Update. Task_Start_Update_Request(  01d_Data  =>  01d_Data  ); 

Nev_Id  :=  Id; 

Result  :=  Success; 
end  Attempt_Start_Update_Wait; 

procedure  Attempt_Start_Update_Delay(  0ld_Data  :  in  out  Element_Type; 

New_Id  s  out  Rendezvous_Ids ; 

Result  :  out  Rendezvous_Flags ; 

Time  :  in  DURATION  )  is 

begin 

Result  :=  Failure; 
select 

Read_Update.Task_Start_Update_Request(  01d_Data  *>  01d_Data  ); 

Nev_Id  s*  Id; 

Result  :  =  Success; 
or 

delay  Time; 
end  select; 

end  Attempt_Start_Update_Delay; 

procedure  At tempt_Complete_Update(  New_Data  :  in  Element_Type; 

Passed_Id  :  in  Rendezvous_Ids ; 

Result  s  out  RendezvousFlags  )  is 

begin 

if  Passedld  -  Id  then 
select 

Read  Update. Task_Complete_Update_Request(  New_Data  ); 

Result  Success; 
else 

Result  :*  Failure; 
end  select; 
else 

Result  :=  Bad_Id; 
end  if; 

end  Attempt_Complete_Update; 
task  body  Read_Update  is 

Protected_Data  :  Element_Type  s-  Initial_Value; 
begin 

Process_Con  t inually  s 

loop 

select 

accept  Task  Read  Request  (Requested  Data  :  out  Element  Type) 
do 

Requested  Data  :=  Protected_Data; 
end  Task_Rea<J_Reques  t ; 
or 

accept  Task_Start_Update_Request  (01d_Data  :  out  Element_Type) 

do 

01d_Data  :=  Protected_Data; 
end  Task_Start_Update_Request; 

accept  Task_Complete_Update_Request  (New_Data  s  in  Element_Type) 
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do 

Protected_Data  :=  New_Data; 
end  Task_Complete_Update_Request ; 

if  Id  =  Rendezvous_Ids' LAST  then 
Id  :=  Rendezvous_Ids' FIRST  +  1; 
else 

Id  s  =  Rendezvous_Ids' SUCC(  Id  ); 
end  if; 
or 

terminate; 
end  select; 

end  loop  Process_Continually ; 
end  Read_Update; 

end  Update_Exclusion; 

end  Communication  Parts; 


\ 
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3.3.9. 1  CLOCK_HANDLER  TLCSC  P634  (CATALOG  #P270-0) 

This  package  contains  the  routines  required  to  maintain  an  internal  clock. 

The  following  routines  are  provided  to  manipulate  the  clock:  o  Reset  clock 
(effectively  zeroes  out  the  clock)  o  Synchronize  clock  (effectively  sets  the 
clock  to  the  specified  time)  o  Current  time  (effectively  reads  the  internal 
clock) 

In  addition,  a  Converted_Time  routine  is  provided  to  convert  a  CALENDAR.  TIME 
to  the  "local  time  zone". 

An  Elapsed_Time  routine  is  provided  to  act  as  a  stopwatch.  It  returns  the 
elapsed  time  between  successive  calls  to  the  function.  This  function  is  not 
affected  by  resetting  or  synchronizing  the  clock. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R046. 


3. 3.9. 1.2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 9. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

This  part  is  a  parameterless  generic. 


3. 3. 9. 1.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Reference  Time 

|  CALENDAR. TIME 

|  N/A 

|  Internal  reference  clock 

: 

1 

j  maintained  by  this  part 

|  Time  Last  Called 

|  CALENDAR. TIME 

|  N/A 

|  Last  time  the  Elapsed 

1  “  “ 

1 

1 

♦ 

j  Time  function  was  called 
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3.3.9. 1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
package  body  ClockHandler  is 
use  CALENDAR; 

—  — local  declarations 

ReferenceTime  :  CALENDAR. TIME  :=  CALENDAR . CLOCK ; 

T i me_Las t_Cal led  :  CALENDAR. TIME  CALENDAR. CLOCK; 

end  Clock_Handler; 

3.3.9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  were  with'd  by  the  package  specification  of  this 
part: 

1 .  CALENDAR 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  external  subroutines  and  task  entries 


required  by 

this  part 

• 

• 

|  Name  | 

Type  | 

Source 

|  Description  | 

|  Clock  | 

Function  | 

Calendar 

|  Returns  the  internal  system  time  | 

Data  types: 

The  following  table  summarizes 

the  external  types  required  by  this  part: 

|  Name 

1  Type 

|  Source 

|  Description  | 

|  TIME 

1 

|  DURATION 

|  private 

1 

|  fixed 

|  CALENDAR 

j  STANDARD 

|  Implementation-dependent  representation  of  | 
j  time  j 
|  Represents  a  length  of  time  1 
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3. 3. 9. 1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  propagated  by  this  part: 


|  Name  |  When/Why  Raised 


1 

STANDARD.  | 

Raised  by  the  following  routines  if  a  difference  in  times 

1 

1 

TIME  ERROR  j 

does  not  fit  within  the  range  of  type  STANDARD. DURATION: 

1 

1 

o  Current  Time 

1 

1 

o  Converted  Time 

1 

o  Elapsed  Time 

1 

1 

1 

o  Synchronize_Time 

1 

3. 3. 9. 1.9  LLCSC  DESIGN 


None. 


3.3.9.1.10  UNIT  DESIGN 

3.3.9.1.10.1  CURRENTTIME  (FUNCTION  BODY)  UNIT  DESIGN 

This  function  returns  the  time  of  the  current  time  of  the  clock.  The  current 
time  is  the  time  which  has  passed  since  the  last  time  the  internal  clock  was 
reset  or  since  the  time  specified  when  the  clock  was  synchronized. 

3.3.9.1.10.1.1  REQUIREMENTS  ALLOCATION 

This  part  partially  meets  requirement  CAMP  R046. 


3.3.9.1.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.9.1.10.1.3  INPUT/OUTPUT 
None. 


3.3.9.1.10.1.4  LOCAL  DATA 


None. 


3.3.9.1.10.1.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.9.1.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Current_Time  return  DURATION  is 
begin 

return  CALENDAR. CLOCK  -  Reference_Time; 
end  Current_Time; 

3.3.9.1.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  were  previously  with'd  and  are  visible  to  this 
part: 

1 .  Calendar 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  external  subroutines  and  task  entries 
required  by  this  part: 


|  Name  | 

Type 

|  Source  | 

Description  | 

|  Clock  | 

Function 

|  Calendar  | 

Returns  the  internal  system  time  | 

Data  types: 

The  following  table 

summarizes  the  external  types  required  by  this  part: 

|  Name 

1  Type 

|  Source 

|  Description  | 

|  TIME 

|  private  |  CALENDAR  | 

Implementation-dependent  representation  of 

1 

1  1 

time 

|  DURATION 

|  fixed 

j  STANDARD  | 

Represents  a  length  of  time 

UTILIZATION 

OF  OTHER 

ELEMENTS  IN 

TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Clock_Handler: 
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|  Name 

1  Type 

Value 

|  Description  | 

|  Reference  Time 

1  CALENDAR. TIME 

N/A 

|  Internal  reference  clock 

1 

1 

j  maintained  by  this  part 

3.3.9.1.10.1.8  LIMITATIONS 

The  following  table  describes  the  exceptions  propagated  by  this  part: 


|  Name  |  Vhen/Why  Raised 


|  STANDARD.  |  Raised  if  the  elapsed  time  does  not  fit  within  the  range  of 
|  TIME  ERROR  j  type  STANDARD .  DURATION 


3.3.9.1.10.2  CONVERTED_TIME  (FUNCTION  BODY)  UNIT  DESIGN 

This  function  converts  an  input  time  to  a  local  time  (i.e.,  converts  it  to  the 
"local  time  zone").  A  local  time  is  defined  as  the  difference  between  the 
input  time  and  the  internal  reference  time. 


3.3.9.1.10.2.1  REQUIREMENTS  ALLOCATION 

This  part  partially  meets  requirement  CAMP  R046. 


3.3.9.1.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.9.1.10.2.3  INFUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  j  Type  |  Mode  |  Description  | 

|  ClockTime  |  CALENDAR. TIME  |  In  |  Time  to  be  coverted  to  a  local  tiirj  | 


3.3.9.1.10.2.4  LOCAL  DATA 


None. 
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3.3.9.1.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.9.1.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Converted_Time  (Clock_Time  :  in  CALENDAR. TIME) 

"return  DURATION  is 

begin 

return  Clock_Time  -  Refer.  ence_Time; 
end  Converted  Time; 


3.3.9.1.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  were  previously  with'd  and  are  visible  to  this 
part: 

1.  Calendar 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Data  types: 

The  following  table  summarizes  the  external  types  required  by  this  part: 


|  Name 

1  Type 

|  Source 

|  Description  | 

|  TIME 

I  1 

j  DURATION  | 

|  private 

1 

j  fixed 

|  CALENDAR 

1 

j  STANDARD  j 

|  Implementation-dependent  representation  of  | 
j  time  j 
|  Represents  a  length  of  time 

UTILIZATION 

OF  OTHER 

ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 


the  package  body  of 

Clock_Handler: 

|  Name 

1  Type  | 

|  Value 

|  Description  | 

|  Reference  Time 

|  CALENDAR. TIME  | 

1  1 

|  N/A 

|  Internal  reference  clock  | 

I 

I 

j  maintained  by  this  part  j 
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3.3.9.1.10.2.8  LIMITATIONS 

The  following  table  describes  the  exceptions  propagated  by  this  part: 


i  Name  |  When/Why  Raised 


|  STANDARD.  |  Raised  if  the  elapsed  time  does  not  fit  within  the  range  of  | 
j  TIMEERROR  j  type  STANDARD. DURATION  j 


3.3.9.1.10.3  RESETCLOCK  (PROCEDURE  BODY)  UNIT  DESIGN 

This  procedure  effectively  zeroes  out  the  internal  clock  by  setting  the 
internal  reference  time  equal  to  the  system  time. 

3.3.9.1.10.3.1  REQUIREMENTS  ALLOCATION 

This  part  partially  meets  requirement  CAMP  R046. 

3.3.9.1.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 9.1. 10. 5. 3  INPUT/OUTPUT 
None. 

3.3.9.1.10.3.4  LOCAL  DATA 
None. 

3.3.9.1.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.9.1.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Reset_Clock  is 
begin 

Reference  Time  :=  CALENDAR. CLOCK; 


end  Reset  Clock; 
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3.3.9.1.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  were  previously  with'd  and  are  visible  to  this 
part: 

1.  Calendar 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Subprograms  and  task,  entries: 

The  following  table  summarizes  the  external  subroutines  and  task  entries 
required  by  this  part: 


|  Name  | 

Type 

|  Source  | 

Description  | 

|  Clock  | 

Function 

|  Calendar  | 

Returns  the  internal  system  time  | 

Data  types: 

The  following  table 

summarizes  the  external  types  required  by  this  part: 

|  Name 

1  Type 

|  Source  | 

Description  | 

|  TIME 

|  private 

|  CALENDAR  | 

Implementation-dependent  representation  of 

1 

1  ! 

time 

j  DURATION 

|  fixed 

|  STANDARD  j 

Represents  a  length  of  time 

UTILIZATION  OP  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Clock_Handler: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Reference  Time 

1 

|  CALENDAR. TIME  | 
1  1 

|  N/A 

|  Internal  reference  clock 
j  maintained  by  this  part 

3.3.9.1.10.3.8  LIMITATIONS 


None. 
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3.3.9.1.10.4  SYNCHKON1ZE_CLOCK  (PROCEDURE  BODY)  UNIT  DESIGN 

This  procedure  effectively  sets  the  internal  clock  to  a  user-specified  time. 
It  does  this  by  setting  the  reference  time  to  a  system  (CALENDAR)  time  -  the 
desired  time.  By  default,  the  system  time  used  is  CALENDAR. CLOCK  by  the  user 
may  supply  his  own  "system"  time. 


3.3.9.1.10.4.1  REQUIREMENTS  ALLOCATION 

This  part  partially  meets  requirement  CAMP  R046. 


3.3.9.1.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.9.1.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

Mode 

Description  | 

|  New  Time 

STANDARD. 

In 

Time  to  which  the  internal  clock 

1  " 

DURATION 

should  be  set 

|  Clock_Time 

CALENDAR. TIME 

In 

System  time 

3.3.9.1.10.4.4  LOCAL  DATA 


None. 


3.3.9.1.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.9.1.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Synchronize  Clock 

(Nev_Time  :  in  STANDARD. DURATION; 

Clock  Time  :  in  CALENDAR . TIME  :-  CALENDAR. CLOCK)  is 


begin 

Reference  Time  :-  Clock  Time  -  New  Time; 


end  Synchronize  Clock; 
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3.3.9.1.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  were  previously  with'd  and  are  visible  to  this 
part : 

1.  Calendar 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Data  types: 

The  following  table  summarizes  the  external  types  required  by  this  part: 


|  Name 

1  Type 

|  Source 

|  Description  | 

|  TIME  | 

private  | 

|  CALENDAR 

Implementation-dependent  representation  of 

1  1 

1  1 

time 

|  DURATION  j 

fixed 

|  STANDARD 

Represents  a  length  of  time 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  objects: 

Thu  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  ClockHandler: 


|  Name 

1  Type  | 

|  Value 

|  Description  | 

|  Reference  Time 

1 

|  CALENDAR. TIME  | 
1  1 

|  N/A 

|  Internal  reference  clock  | 

|  maintained  by  this  part  j 

0 

3.3.9.1.10.4.8  LIMITATIONS 
None. 


3.3.9.1.10.5  ELAPSEDTIME  (FUNCTION  BODY)  UNIT  DESIGN 

This  function  returns  the  time  since  the  la  :  call  to  this  function.  The  first 
call  to  this  function  will  result  in  the  ti  >e  since  the  package  was  elaborated. 
This  function  is  not  affected  by  calls  to  Reset_Clock  or  Synchronize_Clock. 


3.3.9.1.10.5.1  REQUIREMENTS  ALLOCATION 

This  part  partially  meets  requirement  CAMP  R046. 
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3.3.9.1.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.9.1.10.5.3  INPUT/OUTPUT 


None. 


3.3.9.1.10.5.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Answer  | 
1  1 

|  STANDARD. 
DURATION 

|  N/A 

|  Amount  of  time  which  has  elapsed  since  the 
j  last  call  to  this  function 

j  New  Time  | 

CALENDAR. 

|  N/A 

j  System  time 

1  1 

TIME 

1 

1 

3;3.9. 1.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.9.1.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Elapsed_Time  return  STANDARD. DURATION  is 

— declaration  section 


Answer  :  STANDARD. DURATION; 

New  Time  :  CALENDAR. TIME  :-  CALENDAR. CLOCK; 


—  --begin  function  Elapsed_Time 


begin 

Answer  :=  New_Time  -  Time_Last_Called; 

Time_Last_Called  :=*  New_Time; 

return  Answer; 

end  Elapsed_Time; 
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3.3.9.1.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  were  previously  with'd  and  are  visible  to  this 
part : 

1.  Calendar 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  external  subroutines  and  task  entries 
required  by  this  part: 


|  Name 

1  Type 

Source 

|  Description  | 

|  Clock 

|  Function 

Calendar 

|  Returns  the  internal  system  time  | 

Data  types: 

The  following  table  summarizes  the  external  types  required  by  this  part: 


|  Name 

1  Type 

|  Source  | 

Description  | 

|  TIME  | 

1  ! 

|  private 

|  CALENDAR  | 

1 

Implementation-dependent  representation  of  | 
time  j 

j  DURATION  | 

|  fixed 

|  STANDARD  | 

Represents  a  length  of  time  j 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Clock_Handler: 


|  Name 

1  Type  | 

|  Value 

|  Description  | 

|  Time  Last  Called 

|  CALENDAR. TIME  | 

|  N/A 

|  Last  time  the  Elapsed  | 

1 

1  1 

j  Time  function  was  called  j 

3.3.9.1.10.5.8  LIMITATIONS 

The  following  table  describes  the  exceptions  propagated  by  this  part: 
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|  Name  |  When/Why  Raised  | 


|  STANDARD.  |  Raised  if  the  elapsed  time  does  not  fit  within  the  range  of  | 
TIMEERROR  j  type  STANDARD. DURATION  j 
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package  body  Clock_Handler  is 
use  CALENDAR; 


—  —  local  declarations 


ReferenceTime  :  CALENDAR. Time  :=  CALENDAR. Clock; 

Time_Last_Called  :  CALENDAR. Time  CALENDAR. Clock; 

pragma  PAGE; 

function  Current_Time  return  DURATION  is 
begin 

return  CALENDAR. Clock  -  ReferenceJTime; 
end  Current_Time; 
pragma  PAGE; 

function  Converted_Time  (Clock_Time  s  in  CALENDAR. Time) 

return  DURATION  is 


begin 

return  Clock_Time  -  ReferenceJTime; 
end  ConvertedTime; 
pragma  PAGE; 

procedure  Reset_Clock  is 
begin 

ReferenceJTime  CALENDAR. Clock; 
end  Reset_Clock; 
pragma  PAGE; 

procedure  Synchronize_Clock 

(Nev_Time  s  in  STANDARD. DURATION; 

Clock_Time  :  in  CALENDAR. Time  CALENDAR. Clock)  is 


begin 

ReferenceJTime  ClockJTime  -  NevJTime; 
end  Synchronize_Clock; 
pragma  PAGE; 

function  ElapsedJTime  return  STANDARD. DURATION  is 


—  declaration  section 
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Answer  :  STANDARD. DURATION; 

New  Time  :  CALENDAR. Time  :=  CALENDAR. Clock; 


—  —  begin  function  Elapsed  Time 


begin 

Answer  :=  New_Time  -  Time_Last_Called; 

Time_Last_Called  :=  New~Time; 

return  Answer; 

end  Elapsed_Time; 

end  Clock  Handler; 
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4  (NOT  USED) 
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5  (NOT  USED) 
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6  NOTES 

This  paragraph  does  not  apply  to  this  DDD. 
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